Gleitkommadivision durch Null

[himitsu]

Zitat von nuclearping:

Ja, aber lass ihn mal durch Image7.Picture.Bitmap.LoadFromFile(path+'gun2.bmp' ) mit F7 durchsteppen ... Am Ende landet er in irgendwelchen VCL-Units und weiß garnicht mehr weiter.

Man sollte natürlich nicht mit Debug-DCUs (die der RTL/VCL) debuggen ... leider sind die seit XE3 Standardmäßig an und man kann auch keine Default-Projekteinstellungen mehr speichern.

Und alle glücklichen Besitzer einer Starter/Explorer/Personal/Standard haben dieses Problem sowieso nicht.

[DelphiUser1]

Okay also ich habe jetzt mal die Bilder als Bitmap laden lassen und es kann nur an dem Ladeprozess liegen, der Fehler wird im Debugging hier ganz klar an dieser Stelle angezeigt.

Delphi-Quellcode:

 path:=ExtractFilePath(ParamStr(0));
  PFeuer:=TPistol.Create(self);
  PNormal:=TPistol.Create(self);
  PFeuer.Picture.Bitmap.LoadFromFile(path+'gun1.bmp');

Mir ist aber immer noch nicht klar, worin der Fehler liegt..

[stahli]

Setze mal einen Haltepunkt in der ersten Zeile.
Dann mit F7 weiter.
Wenn Du F7 in der LoadFromFile-Zeile durchführst kommt der Fehler?
Kann/Sollte eigentlich nicht sein!

Welches Delphi hast Du?
Hast Du ein anderes Bild versucht?

Wie sieht die Fehlermeldung genau aus - Screenshot?

[Sir Rufo]

Zitat von DelphiUser1:

Okay also ich habe jetzt mal die Bilder als Bitmap laden lassen und es kann nur an dem Ladeprozess liegen, der Fehler wird im Debugging hier ganz klar an dieser Stelle angezeigt.

Delphi-Quellcode:

 path:=ExtractFilePath(ParamStr(0));
  PFeuer:=TPistol.Create(self);
  PNormal:=TPistol.Create(self);
  PFeuer.Picture.Bitmap.LoadFromFile(path+'gun1.bmp');

Mir ist aber immer noch nicht klar, worin der Fehler liegt..

Ganz einfach, PFeuer.Picture.Bitmap gibt es noch nicht, dass wird (intern von TPicture wenn benötigt) beim Laden des Bildes erzeugt.

Ändern auf PFeuer.Picture.LoadFromFile(path+'gun1.bmp'); (Hoffentlich hast du Picture in der Klasse TPistol auch erzeugt)

[DeddyH]

Da würde ich aber eher EAccessViolation statt EDivByZero erwarten, oder? Allerdings wurde die genaue Fehlermeldung sowie die verursachende Zeile noch nicht genannt (oder ich habe es überlesen).

[DelphiUser1]

@stahli: Haltepunkt setzten bringt mich nicht sonderlich weiter, der fehler ist immer der Selbe. Ich benutze die Delphi 7 Testversion..

@DeddyH: Nein es ist EDivByZero und die Zeile ist oben angegeben, das Ganze findet im FormCreate statt

@Sir Rufo: Das hat leider genau den selben Effekt

[DeddyH]

Was ist denn TPistol? Bei dem bisschen gezeigten Code ist das das reinste Rätselraten hier, wie soll man da helfen?

[DelphiUser1]

TPistol ist natürlich TImage. Als TPicture habe ich es auch schon probiert, aber das problem muss wohl wo anders liegen, denn ohne TPistol gab es ja genau den selben Fehler

[DeddyH]

Ohne Code kann man nicht helfen, sry.

[stahli]

Pack Dein Projekt mal in eine Zip und hänge es hier an...