Delphi XE用のRemObjects Pascal Scriptコンポーネントを使用しています。次のコードを作成しました。
type
ITest = interface(IInterface)
['{7762A355-052F-449D-8347-01B59E2D2738}']
procedure Execute;
end;
TTest = class(TInterfacedObject, ITest)
private
procedure Execute;
end;
procedure TForm1.Button3Click(Sender: TObject);
var T: ITest;
o: TPSScript;
begin
T := TTest.Create;
o := TPSScript.Create(nil);
try
o.Script.Text :=
'begin ' + sLineBreak +
' T.Execute; ' + sLineBreak +
'end.';
Execute(o);
finally
o.Free;
end;
end;
私の質問は、パスカル スクリプトで T.Execute を呼び出せるように、インターフェイス変数 T (ITest のインスタンス) をパスカル スクリプトに登録する方法です。