<< Click to Display Table of Contents >> Navigation:  Executing script > Units/Uses

Script can be divided into separate units. To use external units in script create THtScriptParser.OnGetUnit event handler.

Example:

 

uses htutils;
 
function TForm1.OnGetUnit(Sender: THtScriptParser; const UnitName: string;
  var UnitText: string): boolean;
begin
  Result := false;
 if FileExists(ScriptsPath + UnitName + '.pas') then
  begin
    UnitText := FiletoStr(ScriptsPath + UnitName + '.pas');
    Result := true
  end;
end;

 

To use this event handler for all Scripter instances assign it to HtScriptGlobal.OnGetUnit.