Problem - Add Function

asdmm2001 · July 2009

Hi ,

function Tfr_main.test: string;
begin
Result := 'Hi';
end;

function Tfr_main.re_one_dayUserFunction(const MethodName: string;
Â Â var Params: Variant): Variant;
begin
if MethodName = 'test' then
Result := test ;
end;

frxReport2.AddFunction('Function test : String;', 'My functions', 'The MyFunc function always returns True');
frxReport2.OnUserFunction := frxReport2.OnUserFunction;

In the memo i wrote [test]

The Problem : When Run the Memo Text is Blank Not write the result of test .

same problem with function with param .

gordk · July 2009

In the memo i wrote [test]
that would be how to display a variable named test
you require a parameter for your function.
[test(param)]

asdmm2001 · July 2009

Thank you gordk

No Param in function test .

I test other function same this

function Tfr_main.test(st : string) : string;
begin
Result := st;
end;

function Tfr_main.frxReport2UserFunction(const MethodName: string;
Â Â var Params: Variant): Variant;
begin
if MethodName = 'test' then
Result := test(Params[0]);
end;

frxReport2.AddFunction('function test(st : string) : string','my functio','testing');

I wrote in memo [test('newtest')]

Same problem.

asdmm2001 · July 2009

I have solve the problem

if AnsiCompareText(MethodName, 'test') = 0 then
Result := test(Params[0]);

Problem - Add Function

Comments

Leave a Comment