hoi, ich habe in meinem mp3 ordner ca 4500mp3 dateien...ich bekomm aber irgendwie nur 1979 in meiner listbox angezeigt mit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
srec: TSearchRec;
i: integer;
begin
if FindFirst('D:\shared\mp3\*.*', 0, srec) = 0 then
begin
ListBox1.Items.Add(srec.Name);
inc(i);
label1.Caption := IntToStr(i);
Repeat
FindNExt(srec);
ListBox1.Items.Add(srec.Name);
Inc(i);
until findnext(srec) <> 0;
end;
label1.Caption := IntToStr(i);
FindClose(srec);
end;
per label will ich mir dann auch noch anzeigen wieviele gefunden wurden (inc(i))... aber irgendwie werden da "4363234" als ergebnis angezeigt...wie kann das sein?