Abfragen bei einem Spiel

[Delphi-Coder]

Hallo,

ich hab ein Tic Tac Toe (3*3 Felder - gewonnen hat, wer zuerst 3 Figuren untereinander, nebeneinander oder diagonal hat) Spiel für 2 Rechner in einem Netzwerk programmiert! Jetzt bräuchte ich einen Algorithmus, der abfragt, ob man gewonnen hat! Ich finde aber nicht so recht eine Lösung! Man könnte das ganze "zu Fuss" lösen und für jedes Feld die Abfragen schreiben, aber das müsste doch auch einfacher gehen!

Vielen Dank!

Bis denne!
Delphi-Coder

[MrSpock]

Hallo Delphi-Coder,

es gibt ja genau 8 Gewinnmöglichkeiten (3 Zeilen, 3 Spalten, 2 Diagonalen).

Theoretisch könntest du also in einer Schleife die Zeilen, in einer zweiten Schleife die Spalten und letztlich die beiden Diagonalen abfragen. Das spart aber nicht wirklich den Aufwand.

Letztlich musst du es also doch "zu Fuss" lösen. Du könntest auch ein Array definieren, in dem alle Sieg - Stellungen als Koordinaten Trippel stehen:

Delphi-Quellcode:

const 
   gewonnen : array [1..8, 1..3] of TPoint =
                (((1, 1), (1, 2), (1, 3)),
                 ((2, 2), (2, 2), (2, 3)),
                  ...);

Dann kannst du die Abfrage in einer Schleife erschlagen.

[Delphi-Coder]

Hallo MrSpock!

Vielen Dank für deine Antwort! Ich hab jetzt doch alle 8 Möglichkeiten einzeln abgefragt!