Vier Gewinnt

[Sassi]

Zitat von Klaus01:

Zitat von Sassi:

Soweit bin ich auch schon. Nur an der Umsetzung habe ich meine Probleme.
Ich komme beim Proggen nicht weiter. Kann das nicht umsetzten

Nun, das ist ja auch der Casus Knacktus.
Kannst Du es nicht umsetzen oder willst Du es nicht umsetzen?

Was hast Du denn schon fertig (ausser die Initialisierung des Stringgrids)?
Wo hapert es denn? ( jetzt nicht schreiben, an allem).

Von Euch/Dir wird wohl nichts verlangt werden was nicht zumindest
ansatzweise in der Schule angerissen wurde.

Also StringGrid 6 Zeilen 5 Spalten.
Zeile 0 -> Headerzeile (fixedRows =1)
FixedCols = 0

Im StringGrid gibt es das Event onMouseUp
Hier ist die Routine MouseToCell recht hilfreich.
Hast Du die Spalte ermittelt lässt Du einen Stein hineinfallen.
Welcher Stein hängt davon ab, welcher Spieler gerade aktiv ist.

Delphi-Quellcode:

 if spieler1 then
           token := 'x'
          else
            token := 'o':

Nach jedem Wurf solltest Du prüfen ob die Gewinnbedingung erfüllt ist.
Um es am Anfang einfach zu halten, kannst Du ein Gewinn erst einmal
auf 4 in einer Reihe oder in einer Zeile begrenzen.

Grüße
Klaus

Danke Klaus.
Das hilft mir schon sehr weiter =)
Ich hoffe jetzt bekomm ich es hin!