Playlisten erstellen

[Sharky]

Hai,

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 playeintrag : TListItem;
begin
 OpenDialog1.Filter := 'Alle MP3 (*.mp3)|*.mp3;MP3';
 If (OpenDialog1.Execute) then
  begin
   playeintrag := ListView1.Items.Add;
   playeintrag.Caption := OpenDialog1.FileName;
  end;
end;