Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
Re: variable einer abgeleiteten Klasse auslesen
7. Jan 2004, 18:07
Das Prinzip welche Du brauchst schimpft sich Typ-Casting.
Delphi-Quellcode:
procedure blabla;
var t: tTeil;
begin
if aktTeil is zweiEeinA then
ShowMessage(inttostr(zweiEeinA(aktTeil).Eingang1.Ladung))
else
ShowMessage('aktTeil ist vom Typ: ' + aktTeil.ClassName);
end;
... ...
Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
|