Ich würde es so machen:
Delphi-Quellcode:
TBase = class
private
FNr: Integer;
FParentObject: TObject;
public
property Nr: Integer read FNr write FNr;
property ParentObject: TObject read FParentObject write FParentObject;
end;
TMessData1List = class(TBase)
private
fItems: (TObjectList<TMessData1>);
function get_Item(const Index: Integer): TMessData1;
procedure set_Item(const Index: Integer; Value: TMessData1);
public
procedure Add(Item: TMessData1);
procedure Delete(Item: TMessData1); overload;
procedure Delete(Index: Integer); overload; // alle Methoden, die für die Liste gebraucht werden
protected
public
property Items[const Index: Integer]: TMessData1 read get_Item write set_Item; // weiß nicht, ob die Syntax so richtig ist
end;
Jetzt wollte ich das mal ausprobieren und beim Durchspielen stellte ich fest, dass entweder du oder ich einen Gedankenfehler haben.
Problem: Wenn ich auf einem der Einträge MessData1 stehe muss ich ja wieder zuerst durch die Liste um zu wissen zu wem die Liste gehört. Jetzt könnte ich natürlich MessData1 als ParentObject TMessData1List zuordnen, aber wie schon gesagt, kann es auch sein dass ich nicht eine Class finden will sondern eine darüber liegende Liste.
Oder sehe ich was nicht?
Grüße
Gerd