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

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