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();