Listview aktualliesieren ??

[Bernd29bln]

Hi Leute,


Hab da Folgendes Problem ich möchte per drag drop was ja funktioniert dank SHARKY mp3 in eine listview schieben wen die datei abgelegt worden ist soll mir die listview titel song u.s.w. anzeigen könnte mal jemand schauen was ich falsch hab.

Delphi-Quellcode:

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Sender is TListBox) then
  begin
    Accept := True;

  end;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  eintrag : TListItem;
  ndx     : Integer;
begin 
  if Source is TListBox then 
  begin
    for ndx := 0 to Pred (ListBox1.Count) do  // Alle Einträge durchlaufen 
    begin 
      if (ListBox1.Selected[ndx]) then // Wenn Zeile markiert dann. 
      begin
        eintrag := ListView1.Items.Add;  // Neue Zeile erzeugen
        eintrag.Caption := ListBox1.Items[ndx]; // Text zuweisen
         SetFilePara;
      end;
    end;
  end; 
end;
//************************************************************
procedure TForm1.SetFilePara;
var
  item1: TListItem;
  //Die Arrays brauchst wohl nicht wirklich
  //ArrFiles, ArrTitel, ArrArtist, ArrAlbum: Array of String;
  i: Integer;
  MP3_info: TID3Tag;
begin
      MP3_info := readID3Tag(item1.Caption);
      item1.Caption := MP3_info.Titel; //ArrArtist[0];
      item1.SubItems.Add(MP3_info.Artist{ArrTitel[0]});
      item1.SubItems.Add(MP3_info.Album{ArrAlbum[0]});
end;

gruss bernd

[Die Muhkuh]

Hi,

ich gehe mal davon aus, dass die Items nicht hinzugefügt werden.

Delphi-Quellcode:

procedure TForm1.SetFilePara;
var
  item1: TListItem;
  //Die Arrays brauchst wohl nicht wirklich
  //ArrFiles, ArrTitel, ArrArtist, ArrAlbum: Array of String;
  i: Integer;
  MP3_info: TID3Tag;
begin
      MP3_info := readID3Tag(item1.Caption);
      item1 := ListView1.Items.Add; // Das muss hin, dann sollte es die Einträge anzeigen
      item1.Caption := MP3_info.Titel; //ArrArtist[0];
      item1.SubItems.Add(MP3_info.Artist{ArrTitel[0]});
      item1.SubItems.Add(MP3_info.Album{ArrAlbum[0]});
end;

[Bernd29bln]

dank dir Manu hab aber jetzt im drag drop drin geht ganz gut

gruss bernd

[Die Muhkuh]

Zitat von Bernd29bln:

dank dir Manu hab aber jetzt im drag drop drin geht ganz gut

gruss bernd

Hihi, der Fehler passiert mir auch immer wieder