Hallo,
ich untersuche gerade einige Performance-Effekte insb. mit dem DBNavigator. Dabei gab es bei mir irgendwann immer einen Crash Code 87. Ich konnte das jetzt auf ein Programm mit wenigen Zeilen reproduzierbar machen. Das ganze passiert in Delphi XE. Kann das mal bitte jemand validieren?
Neue Delphi-Anwendung (
VCL Formular). Button drauf und einfach folgenden Click-Code. Achtung, das uses mitnehmen, kann ja direkt über die ClickProcedure.
Delphi-Quellcode:
uses ExtCtrls, DBCtrls,
DB;
procedure TFormX.ButtonXClick(Sender: TObject);
var I, H : Integer;
t : TTime;
begin
Screen.Cursor:=crHourGlass;
try
t:=Now;
for I := 0
to 5000
do //crash ab 5000;;; SystemFehler: Code 87 ... auch mit 500, dann halt ca. 10 mal clicken.
TBitmap.Create.LoadFromResourceName(HInstance, '
dbn_FIRST');
finally
Screen.Cursor:=crDefault;
end;
ShowMessage('
Done:'+TimeToStr(Now-t));
end;
VG,
Daniel.