Hallo,

ich habe folgendes gemacht um ein Männlein zu bewegen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TPlayer.erzeugen;
begin
  Image := ImageList.Items.Find('Player-Left');
  Width := Image.Width;
  Height := Image.Height;
  X := 200;
  Y := 200;
  Z := 1;
  AnimStart := 0;
  AnimCount := Image.PatternCount;
  AnimLooped := true;
  AnimSpeed := 150/1500;
end;

procedure TPlayer.DoMove(MoveCount: Integer);
var fMoved: Boolean;
begin
  inherited DoMove(MoveCount);
  fMoved := true;
  if isLeft in Input.States then
  begin
    Player.X := Player.X -3;
    fMoved := true;
  end;
  if fMoved then
    AnimCount := Image.PatternCount
  else
    AnimCount := 0;
end;

Wenn ich des nun ausführen will, dann erscheint ein Fehler, indem steht:

Zitat:

Division durch 0

Hat jemand eine Ahnung warum es nicht klappt? Hab alles genau so gemacht wie
es in meinem Buch steht. -.-''

An welcher Stelle genau kommt denn dieser Fehler?

Eine Frage habe ich noch:

Player.X := Player.X -3;

Ist Player vom Typ TPlayer?

Jap!

zusammenfalten · markieren

Delphi-Quellcode:

type
 TPlayer = class(TImageSprite)
 private
 public
  procedure erzeugen;
  procedure DoMove(MoveCount: Integer); override;
end;

var
 Form1: TForm1;
 Player: TPlayer;

Wieso schribst du dann nicht einfach:

X := X -3;

Naja, so klappts doch auch.
Habs aber mal geändert. Das eigentliche Problem hab
ich nun auch in den Griff bekommen.