FastReport script

smching

I want to use FileExists & Application.Exename in the fastReport code. How to do it?

rakekniven

Would be interested, too.

How to use, implement FileExists

Mick.pl

You may try

procedure BitBtn1OnClick(Sender: TfrxComponent);
var  F:  TFileStream;
     FN:  string;                                                             
begin
   FN := 'c:\temp\notfound.txt';
   try
     F := TFileStream.Create( FN, fmOpenRead); // that WON'T work if other process has the file opened in exclusive mode !!!
     ShowMessage( 'File size: ' + IntToStr( F.Size));                                                                                                               
     F.Free;
   except
     ShowMessage( 'File:  (' + FN + ') doesn''t exist');
   end;
   ShowMessage( Application.ExeName);                   
end;

Regards
Mick

gpi

Write user functions - see a Developer's manual "Custom Functions Connection to Report" chapter