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