Jak zadeklarować stałą wartość w rekordzie?

Question

Chciałbym wiedzieć, jak zadeklarować rekord, który ma pewne ustalone wartości. Muszę przesłać dane przy użyciu tego wzoru: Byte($FF)-Byte(0..250)-Byte(0..250). Używam do tego celu record i chciałbym, aby pierwsza wartość była stała, tak aby nie można go było zepsuć. Takich jak:

TPacket = record 
    InitByte: byte; // =255, constant 
    FirstVal, 
    SecondVal: byte; 
end; 

Answer 1

Nie można powoływać się na konstruktora, ponieważ, w przeciwieństwie do klas, płyty nie są wymagane do korzystania z nich, konstruktor domyślny bez parametrów wykorzystywane w sposób dorozumiany.

Ale można użyć stałego pola:

type 
    TPacket = record 
    type 
    TBytish = 0..250; 
    const 
    InitByte : Byte = 255; 
    var 
    FirstVal, 
    SecondVal: TBytish; 
    end; 

Wtedy to wykorzystać jako zwykły Record, oprócz tego, że nie ma (i nie może) zmienić pole InitByte.
FillChar zachowuje stałe pole i zachowuje się zgodnie z oczekiwaniami.

procedure TForm2.FormCreate(Sender: TObject); 
var 
    r: TPacket; 
begin 
    FillChar(r, SizeOf(r), #0); 
    ShowMessage(Format('InitByte = %d, FirstVal = %d, SecondVal = %d', [r.InitByte, r.FirstVal,r.SecondVal])); 
    // r.InitByte := 42; // not allowed by compiler 
    // r.FirstVal := 251; // not allowed by compiler 
    r.FirstVal := 1; 
    r.SecondVal := 2; 
    ShowMessage(Format('InitByte = %d, FirstVal = %d, SecondVal = %d', [r.InitByte, r.FirstVal,r.SecondVal])); 
end; 

Updated zawierać zagnieżdżony zakres typu 0..250

Answer 2

Nowoczesne wersje Delphi umożliwiają zapisywanie metod. Chociaż nie można uniemożliwić zmianę pola można przynajmniej zainicjować go prawidłowo:

type 
    TPacket = record 
    InitByte: byte; // =255, constant 
    FirstVal, 
    SecondVal: byte; 
    constructor Create(val1, val2 : byte); 
    end; 


constructor TPacket.Create(val1, val2: byte); 
begin 
    InitByte := 255; 
    FirstVal := val1; 
    SecondVal := val2; 
end; 

Answer 3

Biorąc pod uwagę fakt, że rekordy mogą mieć właściwości, można zdefiniować jako rekord:

TMixedFixed = record 
strict private 
    FFixed: byte; 
    FVariable1: byte; 
    FVariable2: byte; 
public 
    property Fixed read FFixed; 
    property Variable read FVariable write FVariable; 
    constructor Create(Var1, Var2: byte); 
end; 

constructor TMixedFixed.create(Var1, Var2: byte); 
begin 
    FFixed:= 255; 
    FVariable1:= Var1; 
    FVariable2:= Var2; 
end; 

Biorąc pod uwagę, że rzeczywiste zmienne są ściśle prywatne, nie powinno się ich dotykać bez specjalnej magii. Będziesz musiał użyć konstruktora, aby zainicjować wartości "ustalone".

Answer 4

Jest to najbardziej prosty sposób:

type 
    TPacket = record 
    InitByte: byte; // =255, constant 
    FirstVal, 
    SecondVal: byte; 
    end; 

var 
    Packet : TPacket = (InitByte: 255); 

const 
    Packet1 : TPacket = (InitByte: 255);