在FastReport可以自己定义函数, 在OnUserFunction事件中,P1,p2,p3 是参数,所以也就是最多支持3个参数,Name是函数名字,这个是一个标志,你根据这个来寻找你在Delphi中定义的那个对应的函数, Val 是返回值
procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2,
p3: Variant;
var Val: Variant);
var
a: string;
b:do
uble;
begin
if Name = 'SmalltoBig'then
begin
a := frparser.Calc(p1);
Val := SmalltoBig(a);
end;
end;