Verschiedene TObject-Typen in TObjectList

[tomsel]

Was bei deinem Beispiel nicht funktionieren würde wären zugriffe auf die Eigenschaften Marke und Modell, ohne dabei den Klassentyp zu prüfen. Hier kann man eine gemeinsame Oberklasse extrahieren, z.Bsp. "Fahrzeug"

Delphi-Quellcode:

type 

  TFahrzeug = class
  public
    Marke, 
    Modell : String; 
  end;

  TAuto = class(TFahrzeug) 
  public
    AnzahlTueren : Integer; 
  end; 

  TFahrrad = class(TFahrzeug) 
  public
    Gaenge : Integer; 
  end;

Dann geht auch sowas:

  ShowMessage(ol[0].Marke + ' ' + ol[0].Modell); [edit] geht natürlich so nur, wenn ol eine spezielle Objektliste ist. Sonst muss man dabei zumindest auf TFahrzeug casten. [/edit]