Hier im Forum kursieren ja die einige Lösungen. Aber keine befriedigt mich so recht.
Ich habe ein 2D Integer Array mit 7 Spalten und 6 Reihen. 0 steht für leer, 1 für Spieler eins und 2 für Spieler zwei. Dürfte Klar sein, denke ich. Mein Problem, wie überprüfe ich am geschicktesten, ob vier einsen oder vier zweien in einer Reihe sind (auch diagonal)?
Mein Code Rumpf sieht bisher so aus:
Delphi-Quellcode:
function TFourInARow.CheckWinner: Boolean;
function CheckRow(r: Cardinal): Boolean;
var
i: Integer;
Prev: Integer;
begin
result := False;
for i := ROWS-1 downto 0 do
begin
end;
end;
function CheckColumn(c: Cardinal): Boolean;
begin
result := False;
end;
function CheckDiagonal: Boolean;
begin
result := False;
end;
var
c, r: Integer;
FourInARow, FourInAColumn, FourInADiagonal: Boolean;
begin
for c := 0 to COLUMNS - 1 do
begin
FourInAColumn := CheckColumn(c);
end;
for r := 0 to ROWS - 1 do
begin
FourInARow := CheckRow(r);
end;
FourInADiagonal := CheckDiagonal;
result := FourInAColumn or FourInARow or FourInADiagonal;
end;
Hat irgendjemand eine clevere Idee, wie man die Inline-Funktionen mit Code füllen könnte?