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

发布时间：2020-12-15 09:20:04 所属栏目：大数据来源：网络整理

导读：假设我将此函数保存在某个脚本中： 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从第二个脚本调用第

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

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从第二个脚本调用第一个脚本？

解决方法

假设一个文件被称为“file1.extension”,它的内容是：

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

和另一个名为“main.extension”的文件,内容如下：

var
    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 …}.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!