Speicher (schnell) reservieren für ListenElemente ?

[himitsu]

Vorher:

Delphi-Quellcode:

Var DasArray: Array of Irgendwas;


SetLength(DasArray, i);
j := Length(DasArray);

Nachher:

Delphi-Quellcode:

Var ArrayLength: Integer;
  DasArray: Array of Irgendwas;

Procedure SetLengthNew(L: Integer);
  Begin
    ArrayLength := L;
    If (L > Length(DasArray)) or (L < Length(DasArray) - 1000) Then
      SetLength(DasArray, (L div 1000 + 1) * 1000);
  End;


SetLengthNew(i);
j := ArrayLength;