Hallo Zusammen,
vielen Dank fuer die Unterstuetzung. Allerdings komme ich mit den Hinweisen noch nicht weiter. Vielleicht nochmal mein Konstrukt...
Delphi-Quellcode:
TMyObjectBase = class(TObject)
public
property Name: string;
end;
TMyObjectOne = class(TMyObjectBase)
public
property Color: string;
end;
TMyObjectTwo = class(TMyObjectBase)
public
property Position: string;
end;
TMyList
public
property Items[Index: integer] : TMyObjectBase; read GetItems write SetItems;
end;
...
for i := 0 to MyList.Count -1 do
//cast
TMyObcetTwo(MyList.Items[i])Positon
//besser???
MyList('ObjectTwo').Position
Ich denke der Haken ist der Count der Liste. Muesste vielleicht eher ueber for each in funktionieren, aber das kennt Delphi ja so nicht?
Gruss,
Chris