Verschiedene TObject-Typen in TObjectList

[Yheeky]

Zitat von Aenogym:

Delphi-Quellcode:

uses contnrs;

{ ... }

var ol: TObjectList;
begin
  ol := TObjectList.create();

  //hinzufügen:
  ol.add(auto1);
  ol.add(fahhrad1);
  ol.add(auto2);

  //und wieder bekommen:
  case ol[0].ClassType of
    TAuto: showmessage('es ist ein auto');
    TFahrrad: showmessage('es ist ein fahrrad');
  end;
end;

Grüße,
Steffen

Super, so einfach geht das?! Danke!

Die Zeile case ol[0].ClassType of funktioniert aber so nicht..."Ordinaltyp erforderlich" ist die Meldung. Mit IF funktioniert´s aber