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 :
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 ?