रिकॉर्ड में एक निश्चित मूल्य कैसे घोषित करें?

Question

मैं जानना चाहता हूं कि मैं एक रिकॉर्ड कैसे घोषित करूं, जिसमें कुछ निश्चित मूल्य हैं। मुझे इस पैटर्न का उपयोग कर डेटा भेजने की जरूरत है: Byte($FF)-Byte(0..250)-Byte(0..250)। मैं इसके लिए record का उपयोग कर रहा हूं और मैं इसका पहला मान निरंतर रखना चाहता हूं, ताकि इसे गड़बड़ न किया जा सके। जैसे:

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

Answer 1

आप एक निर्माता पर भरोसा नहीं कर सकते, क्योंकि कक्षा के विपरीत, रिकॉर्ड्स उन्हें इस्तेमाल करने की आवश्यकता नहीं है, डिफ़ॉल्ट parameterless निर्माता परोक्ष इस्तेमाल किया जा रहा।

लेकिन आप एक निरंतर क्षेत्र का उपयोग कर सकते हैं:

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

फिर इस एक नियमित रूप से रिकॉर्ड के रूप में, को छोड़कर आप की जरूरत नहीं है कि (और आप नहीं कर सकते हैं) का उपयोग InitByte फ़ील्ड बदलें।
FillChar निरंतर क्षेत्र को संरक्षित करता है और अपेक्षित व्यवहार करता है।

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; 

अपडेट किया गया नेस्टेड प्रकार रेंज 0..250

Answer 2

डेल्फी के आधुनिक संस्करण रिकॉर्ड विधियों की अनुमति देते हैं। आप क्षेत्र में बदलाव करने से किसी को नहीं रोका जा सकता है आप कम से कम यह उचित रूप से प्रारंभ कर सकते हैं:

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

को देखते हुए इस तथ्य रिकॉर्ड अब गुण हो सकता है, आप के रूप में एक रिकॉर्ड को परिभाषित कर सकते हैं:

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; 

इस तथ्य को देखते हुए कि वास्तविक चर सख्त निजी हैं, आपको विशेष जादू के बिना उन्हें छूने में सक्षम नहीं होना चाहिए। हालांकि आपको 'निश्चित' मानों को init करने के लिए कन्स्ट्रक्टर का उपयोग करना होगा।

Answer 4

यह सबसे आसान तरीका है:

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

var 
    Packet : TPacket = (InitByte: 255); 

const 
    Packet1 : TPacket = (InitByte: 255);