Gleitkommadivision durch Null

[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...

[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?