(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.866 Beiträge
Delphi 11 Alexandria
|
Re: Auf ein als "private" deklariertes Interface z
31. Aug 2008, 17:17
Oder verwende eine lokale Hilfsklasse in der 2. Unit:
Delphi-Quellcode:
implementation
TClassOneH = class( TClassOne)
private
FInterface: IInterface; reintroduce;
end;
...
procedure TClassTwo.DoSomething;
begin
(Klasse1 as TclassOneH).FInterface.DoSomethingElse; // Methode von FInterface ausführen
end;
Markus Kinzler
|