Listbox mit Lieder füllen funktioniert nicht

[ConnorMcLeod]

Wo sieht man das? Die einzeige ListBox, deren Füllen lt. Subject nicht funktioniert ist lokal in der Prozedur.

[Coffeecoder]

Kann es sein, dass er kein Element in der Listbox findet?
Siehe

Delphi-Quellcode:

sl.Clear;

Oder seh ich da was falsch?

[FrankJ28]

Ich gehe davon aus, das die mp3list visuell auf dem Form liegt und über die Prozedur

Delphi-Quellcode:

 MP3ListeFuellen(mp3Folder, mp3List.Items);

zum Füllen übergeben wird. In der Prozedur MP3ListeFuellen steht noch eine nicht benutzte Definition.
Ciao
Frank

[DeddyH]

Zitat:

Zitat von FrankJ28 (Beitrag 1101282)

Ich gehe davon aus, das die mp3list visuell auf dem Form liegt und über die Prozedur

Delphi-Quellcode:

 MP3ListeFuellen(mp3Folder, mp3List.Items);

zum Füllen übergeben wird. In der Prozedur MP3ListeFuellen steht noch eine nicht benutzte Definition.

Exakt.

[ConnorMcLeod]

Zitat:

Zitat von FrankJ28 (Beitrag 1101282)

Ich gehe davon aus,

Stimmt schon, dass das logisch wäre, aber es steht nirgends. Also ...

[himitsu]

Zitat:

Zitat von Metallicwar (Beitrag 1101232)

er durchläuft die Schleife,

Und das hast du durch Debuggen rausbekommen?

Was passiert denn nun bei Folgendem?

Delphi-Quellcode:

if SysUtils.FindFirst(Folder + '/*.mp3', faAnyFile, Rec) = 0 then

[DeddyH]

Zitat:

Zitat von ConnorMcLeod (Beitrag 1101285)

Zitat:

Zitat von FrankJ28 (Beitrag 1101282)

Ich gehe davon aus,

Stimmt schon, dass das logisch wäre, aber es steht nirgends. Also ...

Es steht im Ausgangspost.

[edit] Wie ist es denn so?

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
//  mp3List: TListBox;
begin
  Assert(Assigned(sl));
  sl.BeginUpdate;
  try
    Folder := IncludeTrailingPathDelimiter(Folder);
    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;
  finally
    sl.EndUpdate;
  end;
end;

[/edit]

[Metallicwar]

Hi, danke für die Rückmeldungen.
Bin auf Arbeit, werde mich heute Abend von zu Hause aus melden.

[FrankJ28]

Hallo,
bei mir funktioniert auch der OriginalCode..

@Detlef: Hattest Recht mit var, pointer ;-)
Ciao
Frank

[DeddyH]

Der Originalcode funktioniert aber nur, wenn man das Verzeichnis auch mit einem Backslash abschließt. Übergibt man als sl-Parameter nil, dann knallt es.