Einzelnen Beitrag anzeigen

funky

Registriert seit: 14. Nov 2010
15 Beiträge
 
#11

AW: Größe von "Array of Array of integer" ermitteln

  Alt 14. Nov 2010, 21:48
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)

Geändert von mkinzler (14. Nov 2010 um 21:57 Uhr) Grund: Code-Tag durch Delphi-Tag ersetzt
  Mit Zitat antworten Zitat