crash in FindFile OpenGl

[EWeiss]

Zitat von scp:

Bei dem FindFirst in der Schleife mit dem k bei ScanDirectory fehlt ein begin ... end, weil jedesmal FindClose aufgerufn werden muss.

Ja oder einfach

Delphi-Quellcode:

  with TStringList.Create do  
  try
     [....]
  finally
    SysUtils.FindClose(Search);
    Free
  end;

kann mir dann begin . end sparen.[nee doch nicht]
Habs gefixt.
Aber das lößt auch nicht mein problem.

EDIT:
habe die vermutung das es hier dran liegt

Delphi-Quellcode:

function LoadJPGTexture(Filename: String; var Texture: GLuint; LoadFromResource : Boolean): Boolean;

  // Create Bitmap
  BMP:=TBitmap.Create;
  BMP.pixelformat:=pf32bit;
  BMP.width:=JPG.width;
  BMP.height:=JPG.height;
  BMP.canvas.draw(0, 0, JPG);

irgendwie kommt die laderoutine mit dem Timing nicht klar.
würde es an FindFile liegen dann ging eigentlich gar nichts.

gruss Emil