碧血剑先生在哪里!fastreport函数在报表中的调用 (100分)

问题如下:
function TForm1.CUpperCase(Value: integer): string;
begin
...
end;

procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2,
p3: Variant;
var Val: Variant);
begin
if Ansicomparetext('CUpperCase',name) = 0 then
Val:=CUpperCase(p1);
end;

我在报表中调用为: [CUpperCase(12345)]时正确
可是为 : [CUpperCase(ADOTable1."gz")]时老是报错
ADOTable1."gz"是表中字段值
不知道该如何调用!!! 急~~~~~~~~~~~

程序中应当是
if Ansicomparetext('CUpperCase',name) = 0 then
Val:=CUpperCase(frParser.Calc(p1));

再给你贴一段帮助
---------------- 使用自定义函数 ----------------------------------------
问: 我怎样才可以自己添加函数?
答: 用TfrReport.OnUserFunction事件。简单的范例如下：
procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2, p3: Variant;
var val: Variant);
begin

if AnsiCompareText('SUMTOSTR', Name) = 0 then

val := My_Convertion_Routine(frParser.Calc(p1));
end;

然后你就可以在报表中使用SumToStr函数：）

问: Ok, 但是这个函数仅仅在一个TfrReport组件中其作用.可以让这个函数在所有的
TfrReport组件中都能使用吗？
答: 给所有报表组件的OnUserFunction事件赋句柄：）如果你不想这么干的话，你就
只好创建一个函数库了:
type
TMyFunctionLibrary = class(TfrFunctionLibrary)
public
constructor Create;
override;
proceduredo
Function(FNo: Integer;
p1, p2, p3: Variant;
var val: Variant);
override;
end;

constructor TMyFunctionLibrary.Create;
begin

inherited Create;
with Listdo

begin

Add('DATETOSTR');
Add('SUMTOSTR');
end;

end;

procedure TMyFunctionLibrary.DoFunction(FNo: Integer;
p1, p2, p3: Variant;
var val: Variant);
begin

val := 0;
case FNo of
0: val := My_DateConvertion_Routine(frParser.Calc(p1));
1: val := My_SumConvertion_Routine(frParser.Calc(p1));
end;

end;

注册函数库可以调用：
frRegisterFunctionLibrary(TMyFunctionLibrary);
同样，取消注册可以用：
frUnRegisterFunctionLibrary(TMyFunctionLibrary);

问: 怎样可以把自定义函数增加到函数列表中去？
答: 用frAddFunctionDesc过程(在FR_Class单元中):
frAddFunctionDesc(FuncLib, 'SUMTOSTR', 'My functions',
'SUMTOSTR(<Number>/Converts number to its verbal presentation.');

注意: "/"符号是必需的！它标示了哪段是函数的声明部分哪段是描述部分.
FuncLib指向你的函数库（可以为nil如果你没有使用函数库的话），当函数库取消注册时，
它包含的所有函数自动从函数列表中移出。

接受答案了.