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));
но выдает (на скиншоте)