Oprydning efter var arrays

Lavede dette lille testprogram og det ser ud til at setlength(list,0) er tilstrækkeligt. Du kan evt. prøve videre for dig selv. Formen består af 4 knapper samt 1 listview i report mode og 7 kolonner.

type
  TfrmMain = class(TForm)
    btnTest: TButton;
    btnAllocate: TButton;
    btnFree1: TButton;
    btnFree3: TButton;
    lvLog: TListView;
    procedure btnTestClick(Sender: TObject);
    procedure btnAllocateClick(Sender: TObject);
    procedure btnFree1Click(Sender: TObject);
    procedure btnFree3Click(Sender: TObject);
  private
  public
  end;

var
  list: array of record
    col:  array of string;
    obj:  array of integer;
  end;

  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  MemRec : _MEMORYSTATUS;
begin
  GlobalMemoryStatus(MemRec);
  with lvLog.Items.Add do begin
    SubItems.Add(IntToStr(MemRec.dwTotalPhys));
    SubItems.Add(IntToStr(MemRec.dwAvailPhys));
    SubItems.Add(IntToStr(MemRec.dwTotalVirtual));
    SubItems.Add(IntToStr(MemRec.dwAvailVirtual));
    SubItems.Add(IntToStr(MemRec.dwTotalPageFile));
    SubItems.Add(IntToStr(MemRec.dwAvailPageFile));
    Caption  := IntToStr(MemRec.dwMemoryLoad);
  end;
end;

procedure TfrmMain.btnAllocateClick(Sender: TObject);
var
  i : integer;
begin
  Screen.Cursor := crHourglass;
  try
    SetLength(list,10000);
    for i := low(list) to high(list) do begin
      SetLength(List[i].col,1000);
      SetLength(List[i].obj,1000);
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TfrmMain.btnFree1Click(Sender: TObject);
begin
  SetLength(list,0);
end;

procedure TfrmMain.btnFree3Click(Sender: TObject);
var
  i : integer;
begin
  Screen.Cursor := crHourglass;
  try
    // Prøvede begge veje. Nedefra og op gjorde ingen forskel
    for i := high(list) downto low(list) do begin
      SetLength(List[i].col,0);
      SetLength(List[i].obj,0);
    end;
    SetLength(list,0);
  finally
    Screen.Cursor := crDefault;
  end;
end;

Det var virkelig noget jeg kunne bruge til noget, tak.
--nop