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 von funky:

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