jonikDk
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
function TForm1.MyFunc(s: String; i: Integer): Boolean;
begin
// нужная логика
end;
procedure TForm1.MyProc(s: String);
begin
// нужная логика
end;
function TForm1.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if MethodName = 'MYFUNC' then
Result := MyFunc(Params[0], Params[1])
else if MethodName = 'MYPROC' then
MyProc(Params[0]);
end;
frxReport1.AddFunction('function MyFunc(s: String; i: Integer): Boolean');
frxReport1.AddFunction('procedure MyProc(s: String)');
|
