Alle dateien eines ordners anzeigen

[Tom]

Zitat von silent:

Delphi-Quellcode:

    Repeat
      FindNExt(srec);
      ListBox1.Items.Add(srec.Name);
      Inc(i);

    until findnext(srec) <> 0;

Zweimal FindNext, einmal davon nicht in der Listbox berücksichtigt ergibt rund die Hälfte ...