велосипед давно изобретен:
Код:
var
ScriptControl: IScriptControl;
begin
ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
ScriptControl.Language:='javascript';
Memo1.Lines.Add(ScriptControl.Eval('(2*5+90+Math.abs(-900))/10'));
end;
http://www.delphisources.ru/forum/sh...00&postcount=8 |