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