delphi - Delphi Web Script：在脚本执行后访问变量

Question

想象一下这个脚本：

var s = TStrings.Create;
s.Add('Line 1');
s.Add('Line 2');

procedure MyProc;
begin
  if s.count = 2 then
  // ...
end;

当脚本运行时，它会创建变量“s”。现在我想在脚本完成后调用“MyProc”：

...
Exec := Program.CreateNewExecution;
Exec.BeginProgram;
Exec.RunProgram(0);
if Exec.ProgramState in [psRunning, psRunningStopped] then
begin
  Func := Exec.Info.Func['MyProc']; 
  Func.Call([]);
  Exec.EndProgram; 
end;

从 MyProc 访问“s”时出现错误。我假设 DWS 的垃圾收集器已经释放了字符串列表。这是正确的吗？我可以做些什么来让“s”活着吗？

Answer 1

在调用 EndProgram 之前不应清理该变量。

可以解释您的问题的一件事是，如果您的脚本一开始就没有错误地编译（检查 Program.Msgs，它应该包含错误）。