Làm thế nào để khai báo một giá trị cố định trong một bản ghi?

Question

Tôi muốn biết cách khai báo một bản ghi, có một số giá trị cố định. Tôi cần gửi dữ liệu bằng mẫu này: Byte($FF)-Byte(0..250)-Byte(0..250). Tôi đang sử dụng record cho điều đó và tôi muốn có giá trị đầu tiên của nó liên tục, để nó không thể được điều sai lầm. Chẳng hạn như:

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

Answer 1

Bạn không thể dựa vào một constructor vì, trái với Lớp học, hồ sơ không cần phải sử dụng chúng, các nhà xây dựng parameterless mặc định được sử dụng ngầm.

Nhưng bạn có thể sử dụng một lĩnh vực liên tục:

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

Sau đó sử dụng điều này như một thường xuyên ghi, ngoại trừ việc bạn không có (và bạn không thể) thay đổi lĩnh vực InitByte.
FillChar duy trì trường liên tục và hoạt động như mong đợi.

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; 

Cập nhật để bao gồm các phạm vi loại lồng nhau 0..250

Answer 2

Phiên bản hiện đại của Delphi cho phép phương thức ghi. Trong khi bạn không thể tránh người khác thay đổi lĩnh vực này bạn ít nhất có thể khởi tạo nó đúng cách:

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

Với thực tế là hồ sơ bây giờ có thể có các thuộc tính, bạn có thể xác định một kỷ lục như:

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; 

Với thực tế là các biến thực là nghiêm ngặt tư nhân bạn không nên có thể chạm vào chúng mà không có phép thuật đặc biệt. Mặc dù vậy, bạn sẽ phải sử dụng hàm tạo để bắt đầu các giá trị 'cố định'.

Answer 4

Đây là cách đơn giản nhất:

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

var 
    Packet : TPacket = (InitByte: 255); 

const 
    Packet1 : TPacket = (InitByte: 255);