क्या किसी ऑब्जेक्ट की संपत्ति के रूप में रिकॉर्ड रिकॉर्ड किया जा सकता है?

Question

मैं किसी ऑब्जेक्ट की संपत्ति के रूप में रिकॉर्ड करना चाहता हूं। समस्या यह है कि जब मैं इस रिकॉर्ड के किसी एक फ़ील्ड को बदलता हूं, तो वस्तु को परिवर्तन के बारे में पता नहीं है।

type 
    TMyRecord = record 
    SomeField: Integer; 
    end; 

    TMyObject = class(TObject) 
    private 
    FSomeRecord: TMyRecord; 
    procedure SetSomeRecord(const Value: TMyRecord); 
    public 
    property SomeRecord: TMyRecord read FSomeRecord write SetSomeRecord; 
    end; 

और फिर अगर मैं करता हूँ ...

MyObject.SomeRecord.SomeField:= 5; 

... काम नहीं करेगा।

तो जब मैं रिकॉर्ड के फ़ील्ड में से एक लिखा जाता हूं तो मैं संपत्ति सेटिंग प्रक्रिया 'पकड़' कैसे बना सकता हूं? रिकॉर्ड रिकॉर्ड करने के तरीके में शायद कुछ चाल है?

अधिक जानकारी

मेरा लक्ष्य एक TObject या एक OnChange घटना के साथ TPersistent (जैसे TFont या TStringList के रूप में) बनाने के लिए होने से बचने के लिए है। मैं इसके लिए ऑब्जेक्ट्स का उपयोग करने से परिचित हूं, लेकिन क्लीनअप मेरे कोड को थोड़ा सा करने के प्रयास में, मैं देख रहा हूं कि मैं इसके बजाय रिकॉर्ड का उपयोग कर सकता हूं। मुझे बस यह सुनिश्चित करने की ज़रूरत है कि जब मैं रिकॉर्ड के फ़ील्ड में से एक सेट करता हूं तो मेरे रिकॉर्ड प्रॉपर्टी सेटर को ठीक से कॉल किया जा सकता है।

Answer 1

इस लाइन पर विचार करें कि आप रिकॉर्ड प्रकार के मूल्य की प्रतिलिपि बनाते हैं ओकेसी चर MyRecord। फिर आप इस स्थानीय प्रतिलिपि के एक क्षेत्र को संशोधित करते हैं। यह MyObject में आयोजित रिकॉर्ड को संशोधित नहीं करता है। ऐसा करने के लिए आपको संपत्ति सेटटर का आह्वान करने की आवश्यकता है।

MyRecord := MyObject.SomeRecord; 
MyRecord.SomeField := NewValue; 
MyObject.SomeRecord := MyRecord; 

या किसी संदर्भ प्रकार का उपयोग करने के लिए स्विच करें, यानी रिकॉर्ड के बजाए एक वर्ग।

संक्षेप में, आपके वर्तमान कोड के साथ समस्या यह है कि SetSomeRecord नहीं कहा जाता है और इसके बजाय आप रिकॉर्ड की एक प्रति संशोधित कर रहे हैं। और ऐसा इसलिए है क्योंकि एक रिकॉर्ड मूल्य प्रकारसंदर्भ प्रकार होने के विपरीत है।

Answer 2

आप मूल्य से रिकॉर्ड पास कर रहे हैं, इसलिए रिकॉर्ड की एक प्रति वस्तु द्वारा संग्रहित की जाती है। उस बिंदु से प्रभावी रूप से दो वस्तुएं हैं; ऑब्जेक्ट द्वारा आयोजित मूल और प्रतिलिपि। एक बदलना दूसरे को नहीं बदलेगा।

आपको संदर्भ द्वारा रिकॉर्ड पास करने की आवश्यकता है।

type 
    TMyRecord = record 
    SomeField: Integer; 
    end; 
    PMyRecord = ^TMyRecord; 

    TMyObject = class(TObject) 
    private 
    FSomeRecord: PMyRecord; 
    procedure SetSomeRecord(const Value: PMyRecord); 
    public 
    property SomeRecord: PMyRecord read FSomeRecord write SetSomeRecord; 
    end; 

Answer 3

रिकॉर्ड के बजाए टॉब्जेक्ट का उपयोग करने के बारे में कैसे?/To/मूल्यों को निर्धारित रिकॉर्ड से

MyObject.MyProperties.SomeField := 1; 
x := MyObject.MyProperties.SomeField; 

इस पद्धति का उपयोग करके आप व्यक्तिगत रूप से प्राप्त करने की आवश्यकता नहीं है:

type 
    TMyProperties = class(TObject) 
    SomeField: Integer; 
    end; 

    TMyObject = class(TObject) 
    private 
    FMyProperties: TMyProperties;  
    public 
    constructor Create; 
    destructor Destroy; override; 

    property MyProperties: TMyRecord read FMyProperties; 
    end; 

implementation 

constructor TMyObject.Create; 
begin 
    FMyProperties := TMyProperties.Create; 
end; 

destructor TMyObject.Destroy; 
begin 
    FMyProperties.Free; 
end; 

अब आप इस तरह पढ़ सकते हैं और TMyProperties के गुणों की स्थापना की। यदि आपको FMyProperties में परिवर्तनों को पकड़ने की आवश्यकता है, तो आप संपत्ति घोषणा में 'सेट' प्रक्रिया जोड़ सकते हैं।

MyObject.SomeRecord.SomeField := NewValue; 

यह वास्तव में एक संकलन त्रुटि है:

MyRecord := MyObject.SomeRecord; 
MyRecord.SomeField := NewValue; 

यहाँ क्या होता है:

[DCC Error]: E2064 Left side cannot be assigned to

आपका वास्तविक कोड शायद कुछ इस तरह है

Answer 4

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

type 
    TMyRec = record 
    SomeRecInteger: integer; 
    SomeRecString: string; 
    end; 

    TMyClass = class(TObject) 
    private 
    FMyRec: TMyRec; 
    procedure SetSomeString(const AString: string); 
    public 
    property SomeInteger: integer read FMyRec.SomeRecInteger write FMyRec.SomeRecInteger; 
    property SomeString: string read FMyRec.SomeRecString write SetSomeString; 
    end; 

procedure TMyClass.SetSomeRecString(const AString: string); 
begin 
    If AString <> SomeString then 
    begin 
    // do something special if SomeRecString property is set 
    FMyRec.SomeRecString := AString; 
    end; 
end; 

नोट::

1. रिकॉर्ड संपत्ति SomeRecInteger
2. SetSomeRecString के उपयोग के लिए सीधी पहुँच कुछ विशेष प्रसंस्करण इस पर लागू करने के लिए इस प्रकार एक वर्ग बड़े करीने से एक रिकार्ड के गुणों का उपयोग कर सकते केवल क्षेत्र

उम्मीद है कि इससे मदद मिलती है।

Answer 5

रिकॉर्ड का सेटटर/गेटर हिस्सा क्यों नहीं बनाते?

TMyRecord = record 
    fFirstname: string; 
    procedure SetFirstName(AValue: String); 
property 
    Firstname : string read fFirstname write SetFirstName; 
end; 

TMyClass = class(TObject) 
    MyRecord : TMyRecord; 
end; 

procedure TMyRecord.SetFirstName(AValue: String); 
begin 
    // do extra checking here 
    fFirstname := AValue; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    MyClass: TMyClass; 
begin 
    MyClass := TMyClass.Create; 
    try 
    MyClass.MyRecord.Firstname := 'John'; 
    showmessage(MyClass.MyRecord.Firstname); 
    finally 
    MyClass.Free; 
    end; 
end; 

Answer 6

यह @ SourceMaid के उत्तर का एक विकल्प है।

आप अपने ऑब्जेक्ट के अंदर एक रिकॉर्ड (रिकॉर्ड के लिए पॉइंटर नहीं) का उपयोग कर सकते हैं और केवल एक ही संपत्ति पढ़ सकते हैं जो आपके रिकॉर्ड में पॉइंटर लौटाती है।

वर्ग:

type 
    TMyRecord = record 
    I:Integer; 
    end; 
    PMyRecord = ^TMyRecord; 
    TMyObject = class 
    private 
    FMyRecord:TMyRecord; 
    function GetMyRecordPointer: PMyRecord; 
    public 
    property MyRecord: PMyRecord read GetMyRecordPointer; 
    end; 

गेटर:

function TMyObject.GetMyRecordPointer: PMyRecord; 
begin 
    result := @FMyRecord; 
end; 

उपयोग:

o := TMyObject.Create; 
o.MyRecord.I := 42; 
ShowMessage(o.MyRecord.I.ToString); 
o.MyRecord.I := 23; 
ShowMessage(o.MyRecord.I.ToString); 
o.Free; 

आप एक सेटर की जरूरत है, क्योंकि आप एक संदर्भ मिलता है और के साथ काम नहीं है। इसका मतलब है कि आप एक नया सौंपकर पूरे रिकॉर्ड को नहीं बदल सकते हैं।
लेकिन आप त्रुटि "Left side cannot be assigned to" त्रुटि के बिना सीधे रिकॉर्ड के तत्वों का उपयोग कर सकते हैं।