More functions!

coolman_kk

Hello,
I want use IncYear() in FastReport but this function not found.

I try this:

USES DateUtils;

but get a error.
Can I use external functions or Delphi functions in FastReport

Thanks.

AlexTZ

Please read the "developer manual".

coolman_kk

Thank you.
In source below I add Delphi IncYear() function and DateFormat for FormatDateTime(), but I have problem.
When start report first time all is ok, but when start second time get a error: "Could not convert variant of type (Null) into type (Double)".

Do u have any idea, how to fix this problem?
Thank you.


function TForm69.m_FDate: String;
begin
Result := 'dd' + DateSeparator + 'mm' + DateSeparator + 'yyyy';
end;

function TForm69.m_IncYear(dDate, nInc: Variant): Variant;
begin
Result := IncYear( dDate,nInc );
end;

function TForm69.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
If MethodName = 'M_INCYEAR' Then
Result := m_IncYear( Params[0],Params[1] );
If MethodName = 'M_FDATE' Then
Result := m_FDate;
end;

procedure TForm69.FormShow(Sender: TObject);
begin
Form69.frxReport1.AddFunction('function m_IncYear(dDate, nInc: Variant): Variant');
Form69.frxReport1.AddFunction('function m_FDate : String');
Form69.frxReport1.LoadFromFile( 'cit0002.fr3' );
end;

---

in report 'cit0002.fr3'

begin
memo72.text := 'Date: ' + FormatDateTime( m_FDate,m_IncYear(StrToDate(<frxDBDataset1."D_NOMER">),1) );
end.

coolman_kk

????

AlexTZ

Probably <frxDBDataset1."D_NOMER"> is Null in some cases, you should check it for Null.

coolman_kk

Hello Alex,
I check all date fields and all is filled!

I use and other function that fill '0' before number, but this also work only first time on the second get a error!

In 3.03 and 3.04 not work.
Maybe I have to free functions and create it again, but how to do that? Any ideas?

If u have sample where send u?
Thanks.

AlexTZ

Send me a demo, I will check it.
tz@fast-report.com