16,742
社区成员
发帖
与我相关
我的任务
分享
Function IsValid(exp: string): Boolean;
var
script: Variant;
str:string;
begin
script := CreateOleObject('ScriptControl');
script.Language := 'JavaScript';
try
str := script.Eval(Exp);
Result := True;
except
Result := False;
end;
end;