Hallo,
da Du keine Source rausrückst muss ich jetzt mit meinen Beispiel kommen
Delphi-Quellcode:
TMyListItems = class;
TMyListItem = class(TObject)
private
function GetCount: Integer;
private
FName: String;
FMyListItems : TMyListItems;
public
constructor Create(MyListItems : TMyListItems);
property Count : Integer read GetCount;
property Name : String read FName write FName;
end;
...
function TMyListItems.Add(const aName : String): TMyListItem;
begin
Result:=TMyListItem.Create(Self);
Result.Name:=aName;
FList.Add(Result);
end;
...
function TMyListItem.GetCount: Integer;
begin
If Assigned(FMyListItems) then
Result:=FMyListItems.Count
else
Result:=-1; // Zeigt dass das TMyListItem in keiner Liste hängt
end;
Der Trick ist , in jedem TMyListItem sich den entsprechenden TMyListItems zu merken.