Naja du könntest so etwas machen:
Delphi-Quellcode:
type
TNodeDataClass = class
private
FParentNodeData: TNodeDataClass;
FSpalte1: string;
FSpalte2: string;
FSpalte3: Integer;
public
constructor Create(AParent: TNodeDataClass); override;
property Spalte1: string read FSpalte1 write FSpalte1;
property Spalte2: string read FSpalte2 write FSpalte2;
property Spalte3: Integer read FSpalte3 write FSpalte3;
end;
implementation
constructor TNodeDataClass.Create(AParent: TNodeDataClass);
begin
inherited Create;
FParentNodeData := AParent;
end;