Показать сообщение отдельно
  #5  
Старый 12.12.2012, 14:05
Аватар для 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;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием