Hallo,
warum so kompliziert,
solange Du nicht Generics arbeitest,
kann doch Deine TClientList verschiedene TClientListItem-Objekte enthalten.
Leite alle TClientListItem von einem gemeinsamen TCustomClientListItem ab und gut ist.
Delphi-Quellcode:
type
TClientList = class(TObjectList)
end;
TCustomClientListItem = class
public
Typ: Integer; // welcher Typ ist es denn
end;
TCustomClientListItem_1 = class
public
im Create Typ = 1;
end;
TCustomClientListItem_2 = class
public
Typ = 2;
end;
Typ ist eigentlich nicht notwendig, man kann ja mit
is prüfen.
Das Debuggen macht es aber einfacher.