Findfirst/next Problem

**braingrenade**

Moin Leute !

Hab n'kleines Problem mit Findnext/first :

In einem Ordner hab ich fünf Bitmap Dateien:

1.bmp
2.bmp
3.bmp
4.bmp
5.bmp

Die will ich nun der Reihe nach auslesen also zuerst 1.bmp dann 2.bmp usw...

Dazu hab ich folgenden Code :

markieren

Delphi-Quellcode:

			var SearchRec: TSearchRec;

begin

FindFirst(bmpfolder+'*.bmp', faAnyFile, SearchRec);

repeat

  setlength(textures,high(textures)+2);

  textures[high(textures)] := tglbmp.Create(bmpfolder+ searchrec.Name);

  ...

until FindNext(searchrec) <> 0;

findclose(searchrec);

Aber unerklärlicherweise werden die bitmaps in der Reihenfolge 1,3,4,5,2 eingelesen !

Kann mir da jemand helfen ?

Findfirst/next Problem

Findfirst/next Problem

Forumregeln