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