Record used to hold data for FindFirst and FindNext SysUtils unit
  TSearchRec = record
  Time : Integer;
  Size : Integer;
  Attr : Integer;
  Name : TFileName;
  ExcludeAttr : Integer;
  FindHandle : THandle;
  FindData : TWin32FindData;
The TSearchRecord record type defines a data structure used to hold file search information for the FindFirst and FindNext routines.
Time  = Last modified file date and time
Size  = File size in bytes
Attr  = File attributes
Name  = File name

Where Attr can have these values :
faAnyFile  : Any file
faReadOnly  : Read-only files
faHidden  : Hidden files
faSysFile  : System files
faVolumeID  : Volume ID files
faDirectory  : Directory files
faArchive  : Archive files

Note : TFileName is a simple string type, but is used to hold file names.
The remaining fields are used internally by the find routines - you should not update them.
Related commands
FileSearchSearch for a file in one or more directories
FindCloseCloses a successful FindFirst file search
FindFirstFinds all files matching a file mask and attributes
FindNextFind the next file after a successful FindFirst
 Download this web site as a Windows program.

Example code : Find all Unit1.d* regular file names and sizes in the current directory
  searchResult : TSearchRec;

  // Try to find regular files matching Unit1.d* in the current dir
  if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
      ShowMessage('File name = '+searchResult.Name);
      ShowMessage('File size = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
Show full unit code
  File name = Unit1.dcu
  File size = 4382
  File name = Uni1.dfm
  File size = 524
  File name = Uni1.ddp
  File size = 51
Delphi Programming © Neil Moffatt . All rights reserved.  |  Home Page