16,746
社区成员




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;