listview ???

[leddl]

Ist ja auch kein Wunder, du fügst ja auch durch "ListView1.Items.Add" eine neue Zeile hinzu. Wo soll die hin, wenn nicht ans Ende?
Wie wärs damit?

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject); 
var
i : Integer;
begin 
  for i := 0 To ListView1.Items.Count - 1 Do
  Begin
     mp3Tag1.LoadTagFromFile(listview1.Items[i].Caption); 
     With ListView1.Items[i] Do
     Begin
        SubItems.Add(MP3Tag1.Title); 
        SubItems.Add(MP3Tag1.Artist); 
        SubItems.Add(MP3Tag1.Album); 
        SubItems.Add(mp3tag1.Year); 
        SubItems.Add(mp3tag1.Genre); 
     end;
  end;
end;