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