Strings subtrahieren?

[Sharky]

Hai Pitch-Bull,

schaue Dir mal diesen Code an. Du brauchst drei Buttons:

• B_AddFilieToListBox
• B_SaveListBoxToFile
• B_LoadListBoxFormFile

Ausserdem einen OpenDialog, einen SaveDialog und eine ListBox.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Clear; // Inhalt der LB löschen
end;

procedure TForm1.B_AddFileToListBoxClick(Sender: TObject);
var
 mp3File : String;
begin
  OpenDialog1.Filter := 'MP3|*.mp3'; // Nur MP3s anzeigen
  if (OpenDialog1.Execute) then
  begin
    mp3File := ExtractFileName(OpenDialog1.FileName);
    Listbox1.Items.Add(mp3File)
  end;
end;

procedure TForm1.B_SaveListBoxToFileClick(Sender: TObject);
begin
  if (SaveDialog1.Execute) then
  begin
    ListBox1.Items.SaveToFile(SaveDialog1.FileName);
  end;
end;

procedure TForm1.B_LoadListBoxFromFileClick(Sender: TObject);
begin
  OpenDialog1.Filter := '';
  if (OpenDialog1.Execute) then
  begin
    ListBox1.Clear;
    ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
  end;
end;