在FastReport中自定义函数(100分)

1.FastReport中如何制作自定义函数(100分,请附源程序)
2.在FastReport打印或预览前给memo1.text赋值(20分)
3.FastReport中设置memo的值时出现的文本编辑器下面的框的如何使用(begin
...end)30分

---------------- Using own functions ----------------------------------------
Q: How I can add my own function?
A: Use TfrReport.OnUserFunction event. Here is simple example:
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;
After this, you can use SumToStr function in any place of report
(in any expression or script).

接受答案了.