FastReport script

Comments

• rakekniven

  January 2013 edited 10:22PM

  Would be interested, too.
  
  How to use, implement FileExists
• Mick.pl

  January 2013 edited 10:22PM

  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

  January 2013 edited 10:22PM

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