Suppose I have this function saved in a certain script:
function Add(a,b:integer):integer;
begin
result:=a+b;
end;
and I have another script which is the following:
var
a,b,c:integer;
a:=1;
b:=2;
c:=Add(a,b);
println(inttoStr(c));
how can i compile both scripts and call the 1st script from the second using dwscript in Delphi?
assuming that one file is called "file1.extension" and it's content is:
function Add(a,b:integer):integer;
begin
result:=a+b;
end;
and another file called "main.extension" with content:
var
a,b,c:integer;
a:=1;
b:=2;
c:=Add(a,b);
println(inttoStr(c));
you need to add the following line at the beginning of "main.extension" file:
// 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'}
I suggest using {$include_once ...} rather than {$include ...}.
In addition to using the $include / $include_once as listed in Dorin's answer, you can also use more traditional units with the "uses" statement if you're in the SVN (2.3) version.
Units can be either "classic" units with an interface/implementation, or mixed units that follow the extended scripting syntax (just omit the "interface" keyword and start declaring/implementing away).
The simplest way to pass the sources to the compiler is to use the events (OnInclude for includes source, OnNeedUnit for units source), but you can also pass them by specifying a CompileFileSystem.
