Gleitkommadivision durch Null

[DelphiUser1]

hier findet ihr die Zip Datei:
http://www.delphipraxis.net/171532-g...ml#post1191600

[Sir Rufo]

Hast du es schonmal mit (in Unit1)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  path := ExtractFilePath( ParamStr( 0 ) );

  PFeuer := TPistol.Create( Self ); // neu
  PNormal := TPistol.Create( Self ); // neu

  PFeuer.Picture.LoadFromFile( path + 'gun1.bmp' ); // Änderung
  PNormal.Picture.LoadFromFile( path + 'gun2.bmp' ); // Änderung

  Image7.Picture.Bitmap.PixelFormat := pf24Bit;
  Start:=50;
  Phase:=1;
  a := 0;
  Punkte:=0;
  randomize;
  doublebuffered := true;
end;

probiert?

[DelphiUser1]

ja habe ich. dann bekomme ich eine Zugriffsverletzung

[stahli]

Jetzt häng mal noch deinen kompletten Monitor hier an.

[DelphiUser1]

War das Ironie oder ist die Zugriffsverletzung auf dem Monitor gemeint?

[stahli]

Sorry, ich meinte einen kompletten Screenshot (oder auch mehrere).
So könnten wir mal sehen, wo der Debuger steh, welche Fehlernachricht etc.

[DelphiUser1]

okay alles klar, dann habe ich mal zwei Screenshots angehängt.

[mkinzler]

Könntest du den noch etwas kleiner machen? Man kann ja fast etwas erkennen :mrgreen:

[Sir Rufo]

Mach das Bitmap zwischen Picture und LoadFromFile weg!

[Popov]

Lange Rede, kurzer Sinn, ich kann mich auch täuschen, aber du erzeugst aus TImage Komponente deine eigene TPistol Komponente, die du später als PFeuer und PNormal deklarierst (1) aber nicht zu Laufzeit einbindest. Aber das war es schon mit der Höflichkeit, da du davon ausgehst, dass die beiden Komponenten schwuppdiwupp auf dem Formular landen. Tun sie aber nicht. Man kann Komponenten zur Laufzeit einbinden, dann aber richtig. Solltest du das irgendwo in deinem Code (bei Göttern, wie blickst du da durch) es getan haben, dann ignoriere es.

Es kann der Fehler sein, muß aber nicht.


-------------
1) das P ist etwas unglücklich gewählt, da es in der Regel für Pointer steht, ist aber kein Fehler, könnte aber missverstanden werden