W
wo88786705
Unregistered / Unconfirmed
GUEST, unregistred user!
我自己已经定义了函数JEXXZDX（VAR XXJINE ：STRING）：STRING；
在网上找了好多资料 但是看到的都是
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;
但是我在我自己的D7打开的看到的是：
function TForm1.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if AnsiCompareText('jexxzdx', Name) = 0 then
result :=jexxzdx(frParser.Calc(params));
end;
提示frParser没有定义 这里有那些错误？请那位大哥帮帮我呀 在线急等待中。。。
我的FR版本是3。0。3
在网上找了好多资料 但是看到的都是
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;
但是我在我自己的D7打开的看到的是：
function TForm1.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if AnsiCompareText('jexxzdx', Name) = 0 then
result :=jexxzdx(frParser.Calc(params));
end;
提示frParser没有定义 这里有那些错误？请那位大哥帮帮我呀 在线急等待中。。。
我的FR版本是3。0。3