Verschiedene TObject-Typen in TObjectList

[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