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

Код:
uses
  MSScriptControl_TLB, ActiveX, ComObj,
...
var
  ScriptControl: IScriptControl;
begin
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  ShowMessage(ScriptControl.Eval('s = "\u041f\u0440\u0438\u0432\u0435\u0442"; s'));
end;

MSScriptControl_TLB импорт библиотеки типов
__________________
Пишу программы за еду.
__________________
Ответить с цитированием