FindFirst

Start a file search and return a findhandle

Declaration

Source position: filutilh.inc line 86

function FindFirst(

const Path: String;

Attr: LongInt;

out Rslt: TSearchRec

):LongInt;

Description

FindFirst looks for files that match the name (possibly with wildcards) in Path and attributes Attr. It then fills up the Rslt record with data gathered about the file. It returns 0 if a file matching the specified criteria is found, a nonzero value (-1 on linux) otherwise.

The Rslt record can be fed to subsequent calls to FindNext, in order to find other files matching the specifications.

Remark:

A FindFirst call must always be followed by a FindClose call with the same Rslt record. Failure to do so will result in memory loss.

Errors

On error the function returns -1 on linux, a nonzero error code on Windows.

Example

Program Example43;

{ This program demonstrates the FindFirst function }

Uses SysUtils;

Var Info : TSearchRec;
    Count : Longint;

Begin
  Count:=0;
  If FindFirst ('*',faAnyFile and faDirectory,Info)=0 then
    begin
    Repeat
      Inc(Count);
      With Info do
        begin
        If (Attr and faDirectory) = faDirectory then
          Write('Dir : ');
        Writeln (Name:40,Size:15);
        end;
    Until FindNext(info)<>0;
    end;
  FindClose(Info);
  Writeln ('Finished search. Found ',Count,' matches');

End.

Notes

 No notes exist for this page yet.