|
Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
Delphi 8 Architect
|
Re: seltsamer Fehler bei der Arbeit mit Klassen
31. Aug 2004, 20:50
Doch das, was Du zuletzt gepostet hast, geht schon.
Du müsstest dann nur vor dem Casten sichergehen, das Dein Objekt auc vom entsprechenden Typ ist:
Delphi-Quellcode:
procedure Machwas(MitDemDing : TFactorTyp);
begin
if (MitDemDing is TFTTerm) then TFTTerm (MitDemDing).Machwas;
if (MitDemDing is TFTVariable) then TFTVariable(MitDemDing).Machwas;
end;
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
|