Zitat von
stoermi:
Warum funktioniert es jedoch nicht mit case .. of?
Delphi-Quellcode:
case objekt.ClassType of
TAuto : edKat.Text := 'Auto';
TMotorrad : edKat.Text := 'Motorrad';
TFahrrad : edKat.Text := 'Fahrrad';
end;
Compiler bringt:Ordinalty erforderlich!?
Na weil deine Klassentypen keine Ordinalwerte sind! Ordinalwerte sind Werte, die alle einen eindeutigen Nachfolger und einen eindeutigen Vorgänger haben. Nur so können case-Anweisungen implementiert werden, da dort eine Sprungtabelle aufgebaut wird.