delphi - PascalScript 包括每个使用的其他脚本或包含命令

Question

我已将 PascalScript 引擎纳入我的软件中。我的用户现在想要为此引擎编写一整套脚本，并且想知道是否可以通过 include 或 uses 命令包含其他脚本。

他想要做的是编写一个包含各种常量/变量的脚本和另一个执行逻辑的脚本。最后他想将这些常量包含到他的逻辑脚本中。

我希望这足以清楚地理解。

Answer 1

我发现了，具体做法如下:PascalScript编译器的UsePreprocessor属性需要设置为true。如果是这样，您现在可以使用以下预处理器命令:

{$I 文件名.txt}

您还需要使用我在网上找到的以下示例来实现编译器的 OnNeedFile 事件:

function TForm1.ceNeedFile(Sender: TObject; const OrginFileName: String;
var FileName, Output: String): Boolean;
var
  path: string;
  f: TFileStream;
begin
  Path := ExtractFilePath(ParamStr(0)) + FileName;
  try
    F := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);
  except
    Result := false;
    exit;
  end;
  try
    SetLength(Output, f.Size);
    f.Read(Output[1], Length(Output));
  finally
    f.Free;
  end;
  Result := True;
end;