Delphi FindNext findet nur jede 2. Datei ?!?

Thema durchsuchen

Ansicht

Themen-Optionen

FindNext findet nur jede 2. Datei ?!?

Ein Thema von Bastler · begonnen am 31. Aug 2007 · letzter Beitrag vom 31. Aug 2007

Vorheriger Beitrag

Nächster Beitrag

Bastler

Registriert seit: 15. Aug 2006
153 Beiträge

Delphi 7 Personal

FindNext findet nur jede 2. Datei ?!?

31. Aug 2007, 16:18

Hallo;

Ich habe Folgenden Code:

zusammenfalten · markieren

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?

Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit, aber beim Universum bin ich mir noch nicht ganz sicher
(A. Einstein)