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!?
IMO sind explizite abfragen auf klassen-typen nicht sehr dynamisch und behindern nur die
OOP. Und für diesen zweck drängt sich eine virtuelle geradezu auf. Warum lääst du nicht das fahrzeug sagen, wie sein 'DisplayTypeName' ist.
Und es gilt auch hier: 'Wer case verwendet, der hat objektorientiere programmierung nicht verstanden'
...Ist vielleicht ein bisschen drastisch formuliert, aber was wahres drann *duck*
mâxîmôv.
{KDT}