Dynamische Arrays - Overhead

[blablab]

habs zu stark vereinfacht

Delphi-Quellcode:

procedure overhead; 
var i, zeilen, spalten: integer; 
   arr: array of record 
      cont: Pointer; 
      strs: array of integer; 
   end; 
begin 
   zeilen := 32000; 
   spalten := 25; 
   SetLength(arr, zeilen); 
   for i := 0 to zeilen - 1 do begin 
      SetLength(arr[i].strs, spalten); 
   end; 
end;