Delphi-Quellcode:
begin
with ListViewFoundFiles.Items.Add do
begin
Caption := FileInfo.Name;
SubItems.Add(FileInfo.Location);
if LongBool(FileInfo.Attributes and FILE_ATTRIBUTE_DIRECTORY) then
SubItems.Add('Folder')
else
SubItems.Add(FormatFileSize(FileInfo.Size));
SubItems.Add(DateTimeToStr(FileInfo.ModifiedTime));
end;
end;
und
Delphi-Quellcode:
ListViewFoundFiles.Items.Add.Caption := FileInfo.Name;
ListViewFoundFiles.Items.Add.SubItems.Add(FileInfo.Location);
if LongBool(FileInfo.Attributes and FILE_ATTRIBUTE_DIRECTORY) then
ListViewFoundFiles.Items.Add.SubItems.Add('Folder')
else
ListViewFoundFiles.Items.Add.SubItems.Add(FormatFileSize(FileInfo.Size));
ListViewFoundFiles.Items.Add.SubItems.Add(DateTimeToStr(FileInfo.ModifiedTime));
Hintergrund
Bei Version oben wird das TListView richtig dargestellt
bei der Version und eben nicht.
Was übersehe ich mal wieder!