delphi 中使用java 函数 http://bbs.csdn.net/topics/20106570 - 旷野轻尘一个人

procedure TForm1.Button1Click(Sender: TObject);
var
  vScriptControl: OLEVariant;
begin
  try
    vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
    vScriptControl.Language := 'VBScript';
    ShowMessage(vScriptControl.Eval(Edit1.Text));
  except
    ShowMessage('不关伴水的事！');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit.Text := '1+1'; //简单又好记～～
end;

回复于： 2002-11-18 21:15:36#4 得分：0