delphi - 从另一个脚本调用脚本

Question

假设我将此函数保存在某个脚本中:

function Add(a,b:integer):integer;  
  begin
    result:=a+b;
  end;

我还有另一个脚本，如下:

var
    a,b,c:integer;

  a:=1; 
  b:=2;
  c:=Add(a,b);

  println(inttoStr(c));

如何编译这两个脚本并在 Delphi 中使用 dwscript 调用第二个脚本中的第一个脚本？

Answer 1

假设一个文件名为“file1.extension”，其内容为:

function Add(a,b:integer):integer;  
  begin
    result:=a+b;
  end;

另一个名为“main.extension”的文件，其内容为:

var
    a,b,c:integer;

  a:=1; 
  b:=2;
  c:=Add(a,b);

  println(inttoStr(c));

您需要在“main.extension”文件的开头添加以下行:

// note that file name is case sensitive
// file1.extension <> FILE1.EXTENSION
// include_once is to solve cycle-includes
// i.e. file1.extension includes main.extension and vice-versa
{$include_once 'file1.extension'} 
// or include if file1.extension does not require functions/objects/variables/etc.
// from main.extension
{$include 'file1.extension'}

我建议使用 {$include_once ...} 而不是 {$include ...}。