Customer function in version 3.20

Comments

• gordk St.Catherines On. Canada.

  January 2006 edited 9:26PM

  there is a change you need to modify your library
  If you wish to connect (add) a large number of functions, it is recommended to placet all logic in a separate library unit. Here is an example:
  
  unit myfunctions;
  
  interface
  
  implementation
  
  uses SysUtils, Classes, fs_iinterpreter; // you can also add a reference //to any other external library here
  
  type
  TFunctions = class(TfsRTTIModule)
  private
  function CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant;
  public
  constructor Create(AScript: TfsScript); override;
  end;
  
  
  function MyFunc(s: String; i: Integer): Boolean;
  begin
  // necessary logic
  end;
  
  procedure MyProc(s: String);
  begin
  // necessary logic
  end;
  
  
  { TFunctions }
  
  constructor TFunctions.Create;
  begin
  inherited Create(AScript);
  with AScript do
  AddMethod('function MyFunc(s: String; i: Integer): Boolean', CallMethod, 'My functions', ' MyFunc function always returns True');
  AddMethod('procedure MyProc(s: String)', CallMethod, 'My functions', ' MyProc procedure does not do anything'');
  end;
  end;
  
  function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant;
  begin
  if MethodName = 'MYFUNC' then
  Result := MyFunc(Params[0], Params[1])
  else if MethodName = 'MYPROC' then
  MyProc(Params[0]);
  end;
  
  initialization
  fsRTTIModules.Add(TFunctions);
  
  end.
  
  Save the file with a .pas extension then add a reference to it in the uses clause of your Delphi project???s form and all your custom functions will be available for use in any report component. No need to write code to add these functions to each ???TfrxReport???, and no need to write additional code for each report component???s ???onuserfunction ??? handler.
  
  
• EresInformatica

  February 2006 edited 9:26PM

  Works ok to use those functions is frxReport. But how to use the same functions in a isolated script object (tFsScript), like this example:
  
  fsScript1.Clear;
  fsScript1.Lines := Memo.Lines;
  fsScript1.SyntaxType := LangCB.Items[LangCB.ItemIndex];
  fsScript1.Parent := fsGlobalUnit;
  
  How to add the same functions in fsGlobalUnit ?