unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FR_Class;type TForm1 = class(TForm) frReport1: TfrReport;
procedure frReport1UserFunction(const Name: string;
p1, p2, p3: Variant;
var Val: Variant);
procedure FormCreate(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.frReport1UserFunction(const Name: string;
p1, p2, p3: Variant;
var Val: Variant);var s: string;
begin
if SameText(Name, 'getv') then
begin
s := 'p1=' + IntToStr(frParser.Calc(p1));
s := s + ' ;p2=' + IntToStr(frParser.Calc(p2));
Val := s;
exit;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
frReport1.ShowReport;
end;
end.
/////[getV(LINE#,PAGE#)]
