| Description |
The FindNext function looks for the next matching file, as defined in the search criteria given by the preceding FindFirst call. The found file details are stored in SearchResults and the return value is 0. Otherwise the return value is negative.
You must have performed a successful FindFirst before calling this routine.
You must call FindClose after calling FindNext for the last time in order to free up resources.
|
|
| Related commands |
| FileSearch |
|
Search for a file in one or more directories |
| FindClose |
|
Closes a successful FindFirst file search |
| FindFirst |
|
Finds all files matching a file mask and attributes |
| TSearchRec |
|
Record used to hold data for FindFirst and FindNext |
|
|
|
| Example code : Search for all Unit1.d* files in the current directory |
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
interface
uses
SysUtils, // Unit containing the FindNext command
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
var
searchResult : TSearchRec;
begin
// Try to find regular files matching Unit1.d* in the current dir
if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;
// Must free up resources used by these successful finds
FindClose(searchResult);
end;
end;
end.
|
| Hide full unit code |
File name = Unit1.dcu
File size = 4382
File name = Uni1.dfm
File size = 524
File name = Uni1.ddp
File size = 51
|
|