Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
30. Dez 2009
Ja und nein. Ich schreibe es nochmal etwas ausführlicher. Um die Basis eines Interface für ein Programm zur Verfügung zu stellen, brauchst Du zum Beispiel diese Klasse :
TApplicationImpl = class(TInterfacedObject, IApplication)
private
FAppIntf: TApplicationImpl;
public
constructor Create(aAppIntf: TApplicationImpl);
// overrides
function Test_1: WideString;
...
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
29. Dez 2009
Der Teil aus Beitrag #2 steht ja in Deinem Programm. Derjenige der über das Interface auf die Anwendung zugreift, greift ja über diesen Teil auf die Funktionen Deines Programm zu :
type
IApplication = interface(IInterface)
function xy:integer;
end;
Die Funktione XY wird dann in dem Object TApplicationImpl deklariert und aufgerufen. Dieses Object solltest Du dann an FastScript...
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
29. Dez 2009
So erstelle ich doch ein Interface :
type
TApplicationImpl = class(TInterfacedObject, IApplication)
private
{...}
protected
{...}
public
{...}