Listbox mit Lieder füllen funktioniert nicht

[Metallicwar]

Hallo, ich bin gerade dabei einen MP3 Player zu programmieren.
Ich wähle in einem BrowseDialog einen Musikordner aus:

Delphi-Quellcode:

procedure TForm1.btnOpenFolderClick(Sender: TObject);
var mp3Folder : string;
begin
 mp3Folder := BrowseDialog('Wähle einen Ordner mit Liedern aus:', BIF_RETURNONLYFSDIRS);
 if mp3Folder = '' then Exit;

 txtFolder.Caption := mp3Folder;

 MP3ListeFuellen(mp3Folder, mp3List.Items);
end;

zum Schluss wird die function MP3ListeFuellen aufgerufen...

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
  mp3List: TListBox;
begin
 sl.Clear;
 if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
  try
    repeat
      sl.Add(Rec.Name);
    until SysUtils.FindNext(Rec) <> 0;
  finally
    SysUtils.FindClose(Rec);
  end;
end;

er durchläuft die Schleife, füllt mir aber nicht die ListBox ..
Kann mir bitte jemand helfen?

[Luckie]

Findet er denn Dateien?

[Metallicwar]

Hi Luckie,
ja im "Rec.Name" wird der Mp3 Name gespeichert ....
und geht alle Mp3 durch, die in dem Ordner sind.
bin schon eine ganze Weile dabei, eine Lösung zu finden ....

[rollstuhlfahrer]

Zitat von Metallicwar:

er durchläuft die Schleife, füllt mir aber nicht die ListBox ..
Kann mir bitte jemand helfen?

Das stimmt schon von der Logik her nicht. Entweder er durchläuft die Schleife und befüllt die Box oder er durchläuft die Schleife nicht.

Dann solltest du mal schauen, ob in deiner Ordner-Variablen der Pfad mit abschließendem '\' steht. Und in deinem Code fehlt noch ein FindClose.

Bernhard

PS: Das SysUtils. brauchst du eigentlich gar nicht, da ja Windows meist die erste Uses ist und SysUtils danach eingebunden wird und somit die Aufrufe aus der Windows-Unit überschreibt.

[FrankJ28]

Hallo,
dein Übergabeparameter sl ist nur "oneway" und liefert nicht zurück. Mach einmal ein var davor, dann sollte es klappen (var sl : TStrings)
Ciao
Frank

[DeddyH]

Nein, var ist nicht nötig, da es sich bei Objektinstanzen um Pointer handelt.

[FrankJ28]

Hallo Detlef,
mmmh, procedure MP3ListeFuellen ist für mich erst einmal nur eine Prozedur.
Ciao
Frank

[DeddyH]

Das hat aber nichts damit zu tun, dass Objektinstanzen als Argumente automatisch by Reference übergeben werden.

[ConnorMcLeod]

Zitat von Metallicwar:

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
  mp3List: TListBox;
begin
 sl.Clear;
 if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
  try
    repeat
      sl.Add(Rec.Name);
    until SysUtils.FindNext(Rec) <> 0;
  finally
    SysUtils.FindClose(Rec);
  end;
end;

er durchläuft die Schleife, füllt mir aber nicht die ListBox

Ahem. Du machst ja gar nix mit der ListBox, ausserdem ist die lokal definiert, ausserdem wird sie nicht erzeugt - so wird da nie was draus.

Wenn in den TStrings was drin steht, dann ausserhalb der Prozedur einer BESTEHENDEN TListBox zuweisen mit ListBox.Items.Assign();

[DeddyH]

Die Variable ist lediglich überflüssig, zugegriffen wird ja auf den Parameter.