zusammenfalten · markieren

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

markieren

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!

Jeder Aufruf von Items.Add erzeugt einen neuen (!) Eintrag.
Ich würde mir den neuen Eintrag in einer lokalen Variable speichern und dann damit in Ruhe konfigurieren.

Danke, ja dann geht es
Nur es ist schon odd.

Wieso? 'Add' ist eine Funktion, die einen neuen Eintrag erzeugt. Was soll daran 'Odd' sein?
Na ja.. Wenn ich mir das so recht überlege... Als ich das zum ersten Mal benutzt habe, war das auch ungewöhnlich.

Davor habe ich neue Einträge immer so erzeugt:

markieren

Delphi-Quellcode:

myNewItem := TMyItem.Create;
myNewItem.Foo := Bar;
...

MyListStructure.Append(myNewItem);

Und dann plötzlich dieses 'Add'?... Man gewöhnt sich dran (nennt sich 'dazulernen', kenn ich ja von mir).