javascript - Delphi MSScriptControl JS无法按索引从字符串中获取字符

Question

我需要在 Delphi 程序中执行 JS 脚本。

有一个问题困扰着我。

我放入js: OleVariant;Form1的public部分，然后使用以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  js := CreateOleObject('ScriptControl');
  js.Language := 'JScript';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo4.Text := js.Eval(Memo3.Text);
end;

之后，这段JS代码就可以正常工作了：

var s = 'rtfm'
s.slice(0,1)

它返回r。

但是这段代码：

var s = 'rtfm'
s[0]

返回空虚。

还有这个检查；

var s = 'rtfm'
s[0]==undefined

返回真。

在没有 JSON 对象的情况下观察到类似的情况，所以我无法执行JSON.parse. 但是我找到了这段代码，这再次允许我在执行 JSON 后使用它。