Strings subtrahieren?

[Pitch-Bull]

naja, ehh. Ich check das nicht. ich freu mich ja, dass darauf so stark geantwortet wird, aber irgendwie ist noch keiner auf den punkt gekommen, wie ich nun genau NUR den Dateinamen ohne den langen Pfad in die Listbox schreibe.

Oder habe ich da was übersehen??????????ß Sollte ich vielleicht lieber ne andere Komponente als die Listbox verwenden?


SORRY HAT SICH SCHON ALLES ERLEDIGT- DANKE NOCHMAL!!!

[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;

[Steve]

Hi,

lad den Inhalt der Datei erstma in ne Stringliste. In dieser stehen dann also mehrere Dateinamen inkl. Pfadangaben. Dann fügst Du einfach immer nur den Dateinamen selbst der einzelnen Einträge an die Listbox an:

Delphi-Quellcode:

var 
  SL : TStringList;
  i  : integer;
begin
  SL := TStringList.Create; // Stringliste erzeugen
  // Hier kommt das OpenDialog-Zeugs
  SL.LoadFromFile(OpenDlg.FileName);
  FOR i:=0 TO Pred(SL.Count) DO // Alle Einträge der Stringliste durchlaufen
    ListBox.Items.Add( ExtractFileName(SL[i]) );
  // Hier noch sonstiger Code
  FreeAndNil(SL); // Freigeben
end;

Ist eigentlich das Gleiche wie von Sharky, nur eben in einer Routine zusammengefasst und die Pfadangaben werden in der Listbox nie angezeigt werden.

Gruß
Stephan :dance:

[Pitch-Bull]

Na wunderbar. Ihr seit echt spitze. Klappt alles, wie am schnürchen. Muss mich jetzt eigentlich nur noch mit der bass.dll auseinandersetzen und dann funktioniert der mist.

hat vielleicht einer von euch ne ahnung, was ich mit der bass.dll alles so machen kann? und wie ich die parameter ansteuern kann?

[Luckie]

Zitat:

Zitat von Pitch-Bull

hat vielleicht einer von euch ne ahnung, was ich mit der bass.dll alles so machen kann? und wie ich die parameter ansteuern kann?

Neue Frage, neuer Thread. Bitte. Ich schließe hier mal vorsorglich, scheint ja alles zu funktionieren.