JvInterpreterでDelphi/C++Builderアプリケーションに簡易Pascal言語を組み込む(4)

Delphiの定数や関数を使用する

uses句にJvInterpreter_allユニットを追加すると、SystemユニットやSysUtilsユニットなどで定義されている関数や定数を使用できます。

uses JvInterpreter_all; //追加しないとNowが未定義エラー

procedure TForm1.Button1Click(Sender: TObject);
begin
  JvInterpreterProgram1.Pas.Clear;
  JvInterpreterProgram1.Pas.Add('begin');
  JvInterpreterProgram1.Pas.Add('  Result := FormatDateTime(''yyyy/mm/dd'', Now)');
  JvInterpreterProgram1.Pas.Add('end;');

  JvInterpreterProgram1.Run;
  ShowMessage(JvInterpreterProgram1.VResult);
end;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください