Probleme bei TicTacToe-Programm

[hans ditter]

Hi, hatte ich auch Schwierigkeiten mit...

Also, hier mal ein Pseudo-Code:

Delphi-Quellcode:

if NOT(OffeneFelder > 0) then
  Exit
ELSE
  for i:= 1 to 3 do
    for j:= 1 to 3 do
      if AlleFelderBesetzt = true then
        ShowMessage('Spieler hat gewonnen!');

Jetzt musst du dir nur noch überlegen, wie du an 'AlleFelderBesetzt' rankommst. Ich geb dir den Tipp, dass Spielfeld in einem Array abzubilden und dann die einzelnen Spalten/Zeilen/Diagonalen zu überprüfen. Dami kannst du Codesparend (fast) alles überprüfen!

LG; hans ditter