delphi список файлов в папке

Ответ от Geonov[гуру]
Установи себе этот компонент, для начала:
Или так:
procedure TForm1.Button1Click(Sender: TObject);
var
ListItem: TListItem;
sr: tsearchrec;
NewColumn: TListColumn;
begin
NewColumn := ListView1.Columns.Add;
NewColumn := ListView1.Columns.Add; // добавдяются колонки
if FindFirst(′*.*′, faAnyFile - faDirectory - faVolumeId, sr) = 0 then
begin
ListItem := ListView1.Items.Add; // создается объект
ListItem.Caption := sr.name;
ListItem.SubItems.Add(inttostr(sr.size));
ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time));
while FindNext(sr) = 0 do
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := sr.name;
ListItem.SubItems.Add(inttostr(sr.size));
ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time));
end;
FindClose(sr);
end;
end;
Или так:
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
SearchRec: TSearchRec;
begin
if Mask = then
Mask := '*.*';
if StartDir[Length(StartDir)] <> then
StartDir := StartDir +
if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
begin
repeat Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')thenbegin
List.Add(StartDir + SearchRec.Name);
ScanDir(StartDir + SearchRec.Name + , Mask, List);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
Пример вызова, параметры 1. имя папки 2. маска, по умолчанию *.* 3. хранилище для резульатат, любой наследник от TString, например TStringList
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ScanDir('c:', '', ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;