iduoCode.pas, iduoConsts.pas, iduoMounting.pas,
iduoParser.pas, iduoResource.pas, iduoToken.pas, WordTokenizer.pas
のある場所に検索パスを通すか、プロジェクトに追加してください。
uses iduoResource, iduoCode, iduoConsts; 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で返ってきた値が入ります。