बेस क्लास में एक व्युत्पन्न वर्ग के वर्ग चर के साथ काम करना

इसकी आवश्यकता क्यों है?

मुझे इस तरह की जरूरत का सामना करना पड़ा, उदाहरण के लिए, जब वर्गों को क्रमबद्ध करना। बेस क्लास में सभी नियमित कोड और वंशजों के बारे में जानकारी लेने की इच्छा थी। खैर, आलसीपन, आखिरकार, प्रत्येक बच्चे के वर्ग के लिए एक ही चीज को निर्धारित करना। इसलिए मैंने सोचा कि शायद मैं जेनरिक को यहां फंसा सकता हूं।

और इसलिए, आवश्यक वर्ग चर को रिकॉर्ड में लपेटा जा सकता है, गतिशील रूप से उनके लिए मेमोरी आवंटित कर सकता है और फिर एक पॉइंटर के माध्यम से इसका उपयोग कर सकता है। यह पॉइंटर इंटरमीडिएट सामान्यीकृत कक्षा के एक वर्ग चर में संग्रहीत किया जाएगा। यह सामान्यीकृत वर्ग विभिन्न वर्ग-गणित के लिए एक नया अनूठा आधार वर्ग बन जाएगा।

वर्ग के एक विशिष्ट उदाहरण से ऐसे डेटा तक पहुंचने के लिए, आप एक पॉइंटर फ़ील्ड जोड़ सकते हैं जिसे सामान्य वर्ग के कंस्ट्रक्टर में आरंभीकृत किया जाएगा। और इस पॉइंटर को बेस क्लास के क्लास के तरीकों में पास करने के लिए, एक अतिरिक्त पैरामीटर का उपयोग करें। इस पैरामीटर के मूल्य का प्रतिस्थापन, संभवत: छिपे हुए क्लाससेल्फ के बजाय, इंटरमीडिएट सामान्यीकृत वर्ग के अतिभारित तरीकों में किया जाएगा।

आधार और सामान्यीकृत वर्गों के लिए एक कार्यान्वयन विकल्प:

unit MyStore; interface uses System.Generics.Collections; type TDataBase = class abstract protected type TDataType = class of TDataBase; TDataList = TList<TDataBase>; TDataInfo = array of Integer; PClassVar = ^TClassVar; TClassVar = record cType :TDataType; cObjs :TDataList; cInfo :TDataInfo; end; protected fVar :PClassVar; class function Init(var cVar :PClassVar):Pointer; overload; class procedure Done(var cVar :PClassVar); overload; static; class procedure AddFild( cVar :PClassVar; var Fild); overload; static; public Tag :Integer; procedure Save; constructor Create; virtual; destructor Destroy; override; end; TDataProx<T:class> = class(TDataBase) protected class var cVar :TDataBase.PClassVar; class function Init:T; overload; inline; class procedure Done; overload; inline; class procedure AddFild(var Fild); overload; inline; public constructor Create; overload; override; class function Objs:TList<T>; inline; end; implementation { TDataBase } class procedure TDataBase.AddFild(cVar: PClassVar; var Fild); // static; begin with cVar^ do begin SetLength(cInfo,Length(cInfo)+1); cInfo[Length(cInfo)-1]:=Integer(PByte(@Fild) - PByte(@cType)); end; end; procedure TDataBase.Save; begin with fVar^ do begin end; end; constructor TDataBase.Create; begin with fVar^ do cObjs.Add(Self); end; destructor TDataBase.Destroy; begin with fVar^ do cObjs.Extract(Self); inherited; end; class procedure TDataBase.Done(var cVar: PClassVar); // static; var Obj :TDataBase; begin with cVar^ do begin for Obj in cObjs do begin Obj.Save; Obj.Free; end; cObjs.Free; Finalize(cInfo); end; Dispose(cVar); end; class function TDataBase.Init(var cVar: PClassVar):Pointer; // uses ClassSelf begin New(cVar); with cVar^ do begin cType:=Self; cObjs:=TDataList.Create; Initialize(cInfo); Result:=@cType; // synthetic Object :) end; AddFild(cVar,TDataBase(Result).Tag); end; { TDataProx<T> } class procedure TDataProx<T>.AddFild(var Fild); // inline; begin AddFild(cVar, Fild); end; constructor TDataProx<T>.Create; begin fVar := cVar; // ! inherited; // ! after fVar := cVar; end; class procedure TDataProx<T>.Done; // inline; begin Done(cVar); end; class function TDataProx<T>.Init:T; // inline; begin Result:=Init(cVar); end; class function TDataProx<T>.Objs: TList<T>; // inline begin Result:=TList<T>(cVar.cObjs); end; end. 

उपयोग उदाहरण:

 unit MyData; interface uses MyStore; type TDataA = class(TDataProx<TDataA>) Data :Integer; Note: string; class constructor Init; class destructor Done; class procedure Work; end; TDataB = class(TDataProx<TDataB>) Data :Double; Memo :array of string; class constructor Init; class destructor Done; end; implementation { DataA } class destructor TDataA.Done; begin Done; end; class constructor TDataA.Init; begin with Init do begin AddFild(Data); AddFild(Note); end; end; class procedure TDataA.Work; var Obj :TDataA; begin for Obj in Objs do Inc(Obj.Data,Obj.Tag); end; { DataB } class destructor TDataB.Done; begin Done; end; class constructor TDataB.Init; begin with Init do begin AddFild(Data); AddFild(Memo); end; end; end.