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

[funky]

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)

[Fussball-Robby]

Gehört zwar nicht mehr zum Thema... Aber wie genau ist die Bedingung zum Gewinnen? Muss das gesamte Feld mit Zweien gefüllt sein?

Generell: Eine Abfrage, ob eine Zahl 1, 2 oder 4 ist, sieht so aus:

Delphi-Quellcode:

if (Zahl = 1) or (Zahl = 2) or (Zahl = 4) then ...
//oder:
if Zahl in [1, 2, 4] then ...

[funky]

Ja das gesamte Feld muss entweder mit 1,2 oder 4 gefüllt sein.

[Bummi]

Zitat:

Ich brauche die Länge und Breite aber nicht in der Prozedur wo sie übergeben wird sondern in einer externen, wo das Array überprüft wird.

war in dem Beispiel #8 alles drin, generierung, Berücksichtigung von nicht "quadratischen" Arrays

der auswertende Teil was

Delphi-Quellcode:

  sum := 0;
  for I := low(f) to High(f) do
     sum := sum + High(f[i]) + 1;

[mkinzler]

Das mit der Verwendung ders Delphi-Tags war ernst gemeint!

[funky]

Was denn für Delphi tags? oO

[Assarbad]

Zitat von funky:

Was denn für Delphi tags? oO

Die hier:

Code:

[DELPHI][/DELPHI]

[funky]

Zitat von Bummi:

Zitat:

Ich brauche die Länge und Breite aber nicht in der Prozedur wo sie übergeben wird sondern in einer externen, wo das Array überprüft wird.

war in dem Beispiel #8 alles drin, generierung, Berücksichtigung von nicht "quadratischen" Arrays

der auswertende Teil was

Delphi-Quellcode:

  sum := 0;
  for I := low(f) to High(f) do
     sum := sum + High(f[i]) + 1;

Das problem habe ich schon gelöst.
Habe weiter oben ein neues Problem gepostet.

[mkinzler]

Eigentlich gilt ja: "Neue Frage, neuer Thread"