Wie ermittelt man die Grenzen mehrdimensionaler Arrays?

[quendolineDD]

Eine Exception verschlucken, damit sie nicht geworfen wird.

[Mithrandir]

Das war mir klar. Aber imho ist das kein guter Programmierstil. Entweder ganz, oder gar nicht.

[mr_emre_d]

Ja stimmt - deshalb ja auch >>brutal<<

Mir fällt leider keine Funktion ein, mit der man die Protektion eines Bereiches im Speicher auslesen kann ..

Ich hab mal den Try-Except Block weggetan und es mit VirtualProect - auch keine gute Lösung - gelöst

Delphi-Quellcode:

function CntArrDimensions( const Arr: Pointer ): String;
var
  Protection: Cardinal;
begin
  VirtualProtect( pCardinal( Cardinal(Arr^) - 4 ), 4, PAGE_READWRITE, Protection );
  VirtualProtect( pCardinal( Cardinal(Arr^) - 4 ), 4, Protection, Protection );
  if Protection = 0 then
    Exit;
  Result := '0..' + IntToStr( pCardinal( Cardinal(Arr^) - 4 )^ - 1 ) + ' ' + CntArrDimensions( Pointer( Cardinal(Arr^) ) );
end;

Edit:
@Daniel - Kuhle Signatur

[himitsu]

Delphi-Quellcode:

function CntArrDimensions(Arr: Pointer): String;
begin
  if Arr = nil then Result := 'leer'
  else Result := '0..' + IntToStr((PPInteger(Arr)^ - 4)^ - 1));
end;

für mehr Ebenen mußt du über die RTTI gehn, denn anders ist keine sichere Auswertung möglich, da du nicht weißt was im Array für Daten enthalten und ob das überhaupt Arrays-Zeiger sind.

Mit viel Spaß könnte ich über ein einfaches Array of Integer deinen Code in eine Endlosschleife steuern
z.B.:

Delphi-Quellcode:

Var Arr: Array of Integer;
SetLength(Arr, 1);
Arr[0] := Integer(Arr);

[Mithrandir]

Zitat von mr_emre_d:

Edit:
@Daniel - Kuhle Signatur

Danke. Mir gefällt der Spruch einfach.

[himitsu]

Was mir noch aufgefallen ist, dein Code liefert immer nur die Größe des ersten Arrays einer Ebene und womöglich noch anderes, wenn es an der tiefsten Ebene vorbei ist.

Ein dynamisches Array kann aber für jedes Element/Unterarray einer Ebene 'ne andere Größe besitzen.

[mr_emre_d]

So ist es Jedoch ist sie leicht änderbar Und wenn man alle Unterarrays nach ihrer Größe abfragt, dann hat man m^n Abfragen und es wird ganz bestimmt nen Stack-Overflow geben

MfG

[himitsu]

es gibt da zwar 'ne unbestimmte anzahl an Arrays, aber denoch nur soviele Funktionsaufrufe maximal gleichzeitig, wie es Ebenen gibt

Schau dir (wenn es dir möglich ist) mal in der SystemUnit die Funktionen _Finalize, _FinalizeArray und _FinalizeRecord an

[Popov]

Zitat von Bernhard Geyer:

Wie wäre es damit?
  j := High(a[0]);

Ich hab mir dein Hinweis noch mal angesehen. Es scheint doch richtig zu sein, nur nicht bei meinem Beispiel, da er ja [1..100] dimensioniert war und 0 außerhalb der unteren Grenzen war. So hätte es funktioniert

Delphi-Quellcode:

var
  a: array[[0..100, 10..10000] of Byte;
  i: Integer;
begin
  i := High(a);

[DeddyH]

High(a) liefert dann 100, High(a[0]) 10000.