Hallo,

zunächst ein Funfact: Wenn man in der Delphi Praxis Snake sucht, bekommt man 8 Seiten Suchergebnisse

Ich habe folgende simple Klassenstruktur:

Die Form hat eine Instanz von TFood, nennen wir sie "Food"
Die Form hat eine Instanz von TSnake, nennen wir sie "Snake"

Nun gibt es das Problem dass ich nicht weiß wo ich die Kollisionsabfrage prüfen soll da:
TFood nicht über die Informationen der Instanz Snake hat.
TSnake nicht die Informationen der Instanz Food hat.
TForm hat eigentlich nicht die Aufgabe hat auf Kollisionen zu prüfen. Sie soll ja eigentlich nur Nutzereingaben erhalten und Ausgaben tätigen.

Ich hatte jetzt vor eine Klasse TSpielfeld zu erstellen um die Kollision auszulagern. Dieses Spielfeld hätte jetzt die Instanz Food und Snake.
Das Problem ist ja, die Kollision soll nur stattfinden wenn sich die Schlange bewegt. Dieses Problem wollte ich mithilfe eines TNotifyEvents in TSnake lösen.
Dieses Event würde immer dann feuern, wenn sich die Schlange bewegt, so könnte ich dann die Kollision in TSpielfeld starten.


Meine Frage ist: Hat jemand eine elegantere Lösung, oder ist diese Lösung so in Ordnung?

würde etwas wie folgt erwarten ....

zusammenfalten · markieren

Delphi-Quellcode:

MyForm = class (TForm)


    aSnakeSpiel : TSpiel;
  

end;



Tspiel = class

   
   aSnake : TSnake ;
   aFood : TFood ;



   procedure PlayTheGame ;


end;

TSpiel.PlayTheGame
begin
     .....
end;

Ich glaube du suchst nach Forward-Declarations:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TClassB = class;
  
  TClassA = class(TObject)
  private
    FB: TClassB;
  end;

  TClassB = class(TObject)
  private
    FA: TClassA;
  end;

Zitat von moritzm123:

Das Problem ist ja, die Kollision soll nur stattfinden wenn sich die Schlange bewegt. Dieses Problem wollte ich mithilfe eines TNotifyEvents in TSnake lösen.
Dieses Event würde immer dann feuern, wenn sich die Schlange bewegt, so könnte ich dann die Kollision in TSpielfeld starten.

Meine Frage ist: Hat jemand eine elegantere Lösung, oder ist diese Lösung so in Ordnung?

Das hört sich sehr sinnvoll an, ja.
TSnake und TFood sollten nichts von einander wissen, das ist nicht deren Aufgabe. Dein Spielfeld kann auf diese Informationen zugreifen und das ganze moderieren.

Egal wie du das verpackst, ob mit Events oder mit Interfaces, die Lösung wird immer vom Prinzip her so oder so ähnlich sein. Denn sobald du TSnake oder TFood etwas von dieser Funktionalität gibst, müssen sie Informationen über das Spielfeld und ihre Nachbarn bekommen, so dass die Kapselung aufgeweicht wird.