Pacman

[Blup]

Der komplette Quelltext liegt nicht vor.
Die Änderungsvorschläge basieren also nur auf Vermutungen oder sind allgemeiner Natur:

Den Destructor Detroy immer mit override kennzeichnen, sonst wird dieser durch Free nicht aufgerufen.

Delphi-Quellcode:

  public
    constructor Create();
    destructor Destroy(); override;

Das TphGameField kennt die eigene Position auf dem Canvas und die Position der Elemente und sollte deshalb die Berechnung der absoluten Zeichenposition übernehmen.
Das Erzeugen der TphMonster könnte z.B. im Constructor von TphGameField erfolgen, aber garantiert nicht in eine Zeichenfunktion:

Delphi-Quellcode:

procedure TphGameField.DrawMonsters(ACanvas: TCanvas);
var
  i, x, y: Integer;
begin
  for i := 0 to high(FMonsterArray) do
  begin
    if Assigned(FMonsterArray[i]) then
    begin
      // (Position des Monsters - eigener Scrollposition) * Feldgrösse
      // Feldgrösse nur multiplizieren, wenn die Positionen nur den Feldindex beinhalten
      x := (FMonsterArray[i].Position.x - FPosition.x) * FSize;
      y := (FMonsterArray[i].Position.y - FPosition.y) * FSize;
      FMonsterArray[i].Draw(ACanvas, Rect(x, y, x + FSize, y + FSize));
    end;
  end;
end;

Randomize sollte nur an einer Stelle im Programm genau einmal aufgerufen werden.
Warum ist der Aufruf des geerbten Constructor auskommentiert?
Die Anfangsposition der Monster zu setzen, ist sicher die Aufgabe des TphGameField.
Schließlich kennt nur das Spielfeld seine Größe und die Position anderer Monster, Spieler und Hindernisse.
Am besten gleich nach dem Erzeugen oder wie bereits vorgeschlagen als Parameter.

Delphi-Quellcode:

constructor TphMonster.Create(x, y: Integer);
begin
  inherited Create;
  FPosition.Position.X := x;
  FPosition.Position.Y := y;
end;

Ohne Aufruf einer Zeichenfunktion wird das Monster überhaupt nicht gezeichnet:

Delphi-Quellcode:

procedure TphMonster.Draw(ACanvas: TCanvas; ARect: TRect);
begin
  ACanvas.brush.color := clRed;
  ACanvas.Ellipse(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
end;

[Blubbel]

Irgendwie ist hier jetzt was komisch... ich bekomme immer diese meldung

Zitat:

[Pascal Fataler Fehler] phpObjects.pas(6): F2047 Zirkuläre Unit-Referenz auf 'phpObjects'

Wenn ich den Code so änder

Delphi-Quellcode:

    destructor Destroy();
    property Pos: TRect read FPos;
  end;

implementation

uses
  Funktionen;

kommt sowas

Zitat:

[Pascal Fehler] Funktionen.pas(42): E2267 Bei der vorherigen Deklaration von GetNewObjectPosition wurde die Direktive 'overload' nicht angegeben

Das ding ist, die Funktion ist gar kein overload. habe es aus einem anderen Projekt genommen und da war es auch schon keins. Irgendwie hab ich da einen Hänger.

[Blubbel]

Kann mir da keiner nen Tipp geben?

[Coffeecoder]

Zitat von Blubbel:

Irgendwie ist hier jetzt was komisch... ich bekomme immer diese meldung [Pascal Fataler Fehler] phpObjects.pas(6): F2047 Zirkuläre Unit-Referenz auf 'phpObjects'

Siehe den Beitrag hier: http://www.delphipraxis.net/124762-f...-referenz.html

[Blup]

Ich habe das Programm ein wenig umgestellt und zumindest lauffähig gemacht.

[Blubbel]

Danke dir ich gucks mir direkt mal an