listview ???

[Bernd29bln]

Hallo!

Ich hab folgendes Problem, wen ich auf meinem button klicke sollen alle caption einträge der listview in den subitems die id3tag angezeigt werden . problem er zeigt nur eine und nicht an der richtigen stelle.

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
var
eintrag : TListItem;
begin
        if PlayIndex < Listview1.Items.Count then
     mp3Tag1.LoadTagFromFile(listview1.Items[playindex].Caption);
        eintrag := ListView1.Items.Add;
        eintrag.SubItems.Add(MP3Tag1.Title);
        eintrag.SubItems.Add(MP3Tag1.Artist);
        eintrag.SubItems.Add(MP3Tag1.Album);
        eintrag.SubItems.Add(mp3tag1.Year);
        eintrag.SubItems.Add(mp3tag1.Genre);
end;

gruss

[marabu]

Zitat:

Zitat von Bernd29bln

Ich hab folgendes Problem, wen ich auf meinem button klicke sollen alle caption einträge der listview in den subitems die id3tag angezeigt werden . problem er zeigt nur eine und nicht an der richtigen stelle.

Ich habe deinen Code ein weinig abgeändert.

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
var
  eintrag: TListItem;
  i: integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do begin
    mp3Tag1.LoadTagFromFile(listview1.Items[i].Caption);
    eintrag := ListView1.Items.Add;
    eintrag.SubItems.Add(MP3Tag1.Title);
  end;
end;

[Bernd29bln]

Danke für die Hilfe. Ich habe aber immer noch das Problem ,wenn zeile 1 bis 3 in der Caption stehen schreibt er die id3tag´s ab zeile 4 .
Versteh ich nicht. :gruebel:


MfG Bernd

[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? :gruebel:
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;

[Bernd29bln]

AHA Verstehe. :wall:

[Bernd29bln]

Naja wenn ich sie entferne bekomme ich ne zugriffsverletzung .

MfG

[Bernd29bln]

Klasse Funktioniert danke leddl :thumb:

MfG

[leddl]

Ja, weil du "eintrag" nicht gesetzt hast. Machs mal so, wie ichs im meinem Post noch editiert hab. Der Quellcode sollte eigentlich funktionieren. Falls nich, meld dich, habs nämlich nich getestet.

[Bernd29bln]

Ne Ne dein post ist super geht einwandfrei . :thumb:

MfG

[leddl]

Na das is mal lustig. Manchmal muß ich meine Posts mehrmals editieren, weil ich ständig mitgeteilt bekomme, daß neue Posts da sind, und in dem Thread hab ich gleich 2mal keine Meldung bekomme... :gruebel:

Aber schön, daß es jetzt funktioniert. Mußt halt aufpassen, falls eine Zeile bereits die SubItems hat. Dann würdest du mit Add neue Spalten dahinter einfügen. Daher müßtest du dann die SubItems einzeln ansprechen über SubItems[x].