FindNext findet nur jede 2. Datei ?!?

[Bastler]

Hallo;

Ich habe Folgenden Code:

Delphi-Quellcode:

if SelectDirectory('Wähle das Verzeichnis','',ordner) then
  begin
  FindFirst(ordner+'\*.JPG', faAnyFile, sr);
  liste.Add(sr.Name);
  repeat
    begin
    if FindNext(sr) = 0 then;
    liste.Add(sr.Name);
    end;
  until FindNext(sr) <> 0;
  liste.Add(sr.Name);
  FindClose(sr);
  end;

Nur in der Liste (liste) steht nachher nur jede 2. Datei, wenn ich 72 Bilder in dem Ordner hab sind nachher nur 36 gelistet...

Kann mir wer erklären warum?

[mkinzler]

Du ruft .FindNext auch 2 mal pro Schleifendurchlauf auf.

[SirThornberry]

die erklärung ist einfach. Du rufst 2 mal FindNext auf.

Zudem solltest du auch das Ergebnis von FindFirst auswerten. Und FindClose brauchst du nur auswerten wenn FindFirst erfolgreich war.

Delphi-Quellcode:

if (FindFirst(...) = 0) then
begin
  repeat
    //do anything
  until FindNext(...) <> 0;
  FindClose(...);
end;