Strings subtrahieren?

[Sharky]

Hai Pitch-Bull,

Wenn in deiner Datei die Dateinamen mit dem gesamten Pfad stehen werden Sie natürlich auch wieder in der ListBox angezeigt.

Code:

procedure TForm1.Playlistffnen1Click(Sender: TObject);
var
Playlistopen:TFileName;
begin
  if (OpenDialog1.Execute) then
    begin
      Playlistopen := ExtractFileName(OpenDialog1.FileName); // Das ist ganz ganz schlecht. Hier sollte der
                                                             // gesamte Pfad aus dem Dialog verwendet werden.
      ListBox1.items.LoadFromFile(Playlistopen);
    end;
end;