Objekt in Komponente variabel gestalten

[hoika]

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.