Strings subtrahieren?

[Die Muhkuh]

Zitat von Pitch-Bull:

Code:

procedure TForm1.Playlistffnen1Click(Sender: TObject);
var
Playlistopen:TFileName;
begin
  if (OpenDialog1.Execute) then
    begin
      Playlistopen := ExtractFileName(OpenDialog1.FileName);
     // Playlistopen:=OpenDialog1.FileName;

      ListBox1.items.LoadFromFile(Playlistopen);
    end;
end;

Hi,

bitte nimm die [ delphi] [ /delphi] Tags (ohne das leerzeichen).

Ausserdem, kannst du deinen Code so schreiben:

Delphi-Quellcode:

procedure TForm1.Playlistffnen1Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
    begin
      ListBox1.items.Add(ExtractFileName(OpenDialog1.FileName); // Nimm Add. wenn du das hinzufügen willst und nicht laden willst.
    end;
end;