Zitat von
hronny:
.. Ich möchte ein Record (oder Klasse egal) erzeugen, die wiederum sich als Eigenschaft hat.
Hallo,
kein Problem mit einer Klasse, und gut geeignet für Baumstrukturen. Beispiel:
Delphi-Quellcode:
type
TCPAObject = class;
TCPARootObject = class;
TCPADataObject = class
ObjCode : TCPACodeStr;
Root : TCPARootObject;
Parent : TCPADataObject;
Next : TCPADataObject;
KeyWord : TCPAKeyWordStr;
Depth : integer;
{$IFDEF DebugWindow} SeqNumber : integer; {$ENDIF}
constructor create (pRoot : TCPARootObject; pParent : TCPAObject);
procedure GetNextObject (var CO : TCPADataObject);
end;
TCPAObject = class (TCPADataObject)
SubKeyWord : TCPAKeyWordStr;
ItemNumber,StringNumber : integer;
ActDetail : TCPADataObject;
function NextChar : Char;
procedure UnGetChar;
....
Hier wird nur das Root-Objekt erzeugt und eine
XML-artig strukturierte (Text)Datei übergeben, dann erzeugen sich die Objekte selbst (abhängig von ObjCode) bis die Datei abgearbeitet ist.
Gruss Reinhard