| Код |
procedure ListFilesInDirectory(Dir: string; Strings: TStrings);
var
rSearchRec: TSearchRec;
begin
if not Assigned(Strings) then
Exit;
Dir := IncludeTrailingBackslash(Dir);
if FindFirst(Dir + '*.*', faAnyFile, rSearchRec) = 0 then
repeat
if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then
if (rSearchRec.Attr and faDirectory) <> 0 then
ListFilesInDirectory(Dir + rSearchRec.Name, Strings)
else
Strings.Add(rSearchRec.Name);
until FindNext(rSearchRec) <> 0;
end;
|
Пример вызова:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
ListFilesInDirectory(Edit1.Text, ListBox1.Items);
end;
|
|