BeRoPascalScript ExternalAPI API

type TPascalScript=class(TBeRoPascalScript)
      private
       function EXTRN_TestExternalFunc(const Arguments:TBeRoPascalScriptArguments;CountArguments:longint):longint;
      public
       procedure Precode; override;
     end;

function TPascalScript.EXTRN_TestExternalFunc(const Arguments:TBeRoPascalScriptArguments;CountArguments:longint):longint;
begin
 result:=Arguments[0].i+Arguments[1].i+100;
end;

procedure TPascalScript.Precode;
begin
 AddPrecodeExternal('function TestExternalFunc(a,b:integer):integer;',EXTRN_TestExternalFunc);
end;