Показать сообщение отдельно
  #8  
Старый 16.04.2012, 09:27
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

велосипед давно изобретен:
Код:
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;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием