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;