Показать сообщение отдельно
  #9  
Старый 06.03.2015, 15:40
sashka sashka вне форума
Прохожий
 
Регистрация: 06.03.2015
Сообщения: 7
Версия Delphi: Delphi XE7
Репутация: 10
По умолчанию

Screenshot_5.jpg
Цитата:
Сообщение от NumLock
Код:
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 импорт библиотеки типов
пытаюсь всунуть свой edit (один из вариантов):
Код:
Label1.Caption:=(ScriptControl.Eval(Edit1.Text));
но выдает (на скиншоте)
Ответить с цитированием