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
