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

[funky]

Hi,

Mein nächstes Problem ist, dass ich ein "array of array of integer" habe und nun versuche die Länge des Arrays auszulesen.
Beispiel:

Code:

Felder: array of array of integer;

wenn ich jetzt das hier mache:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var text:string;
begin
text:= IntToStr(Length(Felder));
ShowMessage(text);
end;

bekomme ich nur die eine Seite des Arrays raus.

Also z.B. nur diese Stelle des Arrays:
Felder[ausgelesen,fehlt]

Ich brauche aber beide Stellen des Arrays. Wie mache ich das nun?

[mkinzler]

Was meint du mit einet Seite?

BTW: Verwende bitte für Delphi-Code den Delphi-Tag

[funky]

Also

Ich habe ein zwei dimensionales Array "Felder[x,y]"
Und ich will die max.Werte aus x und y auslesen bekomme aber nur x raus und y fehlt mir.

[mkinzler]

Eigentlich sollte dir die gesammte Größe zurückgeliefert werden

[Assarbad]

Zitat:

Zitat von funky (Beitrag 1061480)

Und ich will die max.Werte aus x und y auslesen bekomme aber nur x raus und y fehlt mir.

Das geht prinzipiell nicht, es sei denn diese Daten werden mitgeliefert oder mitgespeichert.

Es ist beispielsweise nicht ohne weiteres ersichtlich ob das Array korrekt per a[x][y] oder per a[y][x] angesprochen werden würde. Entsprechend ist eine Aussage über das was du willst ohne die genannten Rahmenbedingungen nicht machbar.

[funky]

Also

Das Array wird so "gefüllt":

Zitat:

AssignFile(Datei, 'Level1.txt');
Reset(Datei);

Read(Datei, Text);
Länge := Text;

Read(Datei, Text);
Breite := Text;

SetLength(Felder, Länge, Breite);

Danach wird in jedem "Feld" etwas gespeichert.
Z.B. nur mit lauter einsen und zweien

Ich will jetzt das Array "Felder" überprüfen ob das Array komplett mit zweien gefüllt.
Wenn ja mache xxxxx...

[mkinzler]

Wie Olli geschrieben hat, müsstest du dir Länge und Breite irgendwo merken.

[Bummi]

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
type
TFelder= array of array of integer;
var
  f:TFelder;
  i, sum:Integer;
begin
  SetLength(f,100,100);
  SetLength(f[10],1);
  sum := 0;
  for I := low(f) to High(f) do
     sum := sum + High(f[i]) +  1;
  Caption := intToStr(sum);
end;

[funky]

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.
Muss ich das mit einer public-variable machen oder geht das auch anders?

[Fussball-Robby]

Delphi-Quellcode:

  X := Length(Felder);
  Y := Length(Felder[0]);

Das funktioniert, wenn das Feld quadratisch ist, da alle Spalten so lang sind wie die 0te Spalte. Hoffe, das war gemeint.

Viele Grüße

[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:

Zitat von funky (Beitrag 1061504)

Was denn für Delphi tags? oO

Die hier:

Code:

[DELPHI][/DELPHI]

[funky]

Zitat:

Zitat von Bummi (Beitrag 1061502)

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"