急:怎样把一段字符串转换为布尔表达式**

werwolfxj

如:
var
  stemp:string;

  stemp:='1+1=2';

  if stemp then
这块怎么写

在delphi中可以用
uses   ComObj;   
   
  procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      vScriptControl:   OleVariant;   
  begin   
      vScriptControl   :=   CreateOleObject('MSScriptControl.ScriptControl');   
      vScriptControl.Language   :=   'VBScript';   
      Caption   :=   vScriptControl.Eval('1+1=2');   
  end;
但不知道在X3中怎么写

jiahaiminghr

uses
  system;

procedure TMainForm.Button1Click(Sender: TObject);
var
  oScriptControl, resultValue: Variant;
  DispS: DispatchHelper;
begin
  oScriptControl := ComObj.CreateOleObject('MSScriptControl.ScriptControl');
  dispS := DispatchHelper.Create(oScriptControl);
  dispS.PropertyPut('Language', ['VBScript']);
  resultValue := dispS.InvokeMethod('Eval', [1+1=2]);
  Caption := Variants.VarToStr(resultValue);
  (oScriptControl as IDisposable).Dispose;
end;