Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.251 Beiträge
 
Delphi 12 Athens
 
#24

Re: Dynamische Arrays - Overhead

  Alt 24. Okt 2009, 22:17
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;
genau dieser Code belegt bei mir, laut Taskmanager zusätzliche 3,748 MB (D7) bzw 3,764 MB (D2009)
also fast 3,8 MB, so wie ich ausgerechnet hatte
(XP32)
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat