OK jetzt habe ich Länge und Breite rausgefunden aber wie überprüfe ich zum Beispiel ob es mit zweien gefüllt ist?
Zur Zeit habe ich folgenden Code aber der funktioniert nicht:
Delphi-Quellcode:
procedure TForm1.CheckField;
var i,j:integer; gewonnen:boolean;
begin
gewonnen:= true;
for i := 0 to Länge-1 do
begin
for j := 0 to Breite - 1 do
begin
if (arFelder[i,j] = 1 or 2 or 4 ) then
begin
gewonnen := true;
end
else
begin
gewonnen := false;
end;
end;
end;
if (gewonnen = true) then ShowMessage('Gewonnen');
end;
Die Prozedur habe ich nach jeder Bewegung reingemacht.
Also wenn w,a,s oder d gedrückt wird.
Edit:
1 steht für Blau (Nicht begehbares Feld)
2 für Rot (Ziel)
4 für gelb (Felder auf denen man war)