iduoCode.pas, iduoConsts.pas, iduoMounting.pas,
iduoParser.pas, iduoResource.pas, iduoToken.pas, WordTokenizer.pas
のある場所に検索パスを通すか、プロジェクトに追加してください。
uses iduoResource, iduoCode, iduoConsts, iduoToken;
procedure TForm1.Button1Click(Sender: TObject);
var
ret: TVar;
begin
with TIduo.Create(nil) do
begin
try
// コードを実行
Script:=Memo1.Text;
Execute(ret);
except
// 実行時エラーの処理
on e: ETokenError do
Application.MessageBox('実行エラー', 'iduo', MB_ICONERROR);
end;
// 開放
FreeVar(ret);
Free;
end;
end;
ret変数には、returnで返ってきた値が入ります。