Получить список файлов в ListView как в проводнике
Материал из DRKB
Получить список файлов в ListView как в проводнике[править | править код]
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;
Source: http://delphiworld.narod.ru/
ID: 01144