Привет народу!

Привожу кусок кода. При создании объекта TMatrix (1000x1000) занимается около 25Мb памяти. При вызове метода Destroy освобождается всего 4Mb. Почему-то существенно решает проблему удаление помеченной строки. Но все равно часть памяти до конца не освобождается. При постоянном создании/удалении объектов остатки нарастают существенно. Расход памяти смотрю в диспетчере задач Windows. Криво, конечно, но раньше проблем с памятью не возникало, потому более серьезными отладчиками не пользовался, а в диспетчере расход хоть грубо, но видно.

Код

unit Matrix; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   RXSpin, StdCtrls, ComCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   TComplex=record     r:double;     i:double;   end;   PMatrixItem=^Tcomplex;   TMatrix=class(TObject)     ACol,ARow:integer;     AItems:TList;     MatrixItem:PMatrixItem;     constructor create(row,col:integer);     destructor Destroy; override;     procedure AddZeroItem;   end; var   Form1: TForm1;   Matrix:TMatrix; implementation {$R *.DFM} procedure TMatrix.AddZeroItem; begin   new(MatrixItem);   MatrixItem:=nil;//  <<----удаление существенно помогает освободить память   AItems.Add(MatrixItem) end; constructor TMatrix.create(row,col:integer); var i:integer; begin   ACol:=col;   ARow:=row;   AItems:=TList.Create;   AItems.Clear;   Aitems.Capacity:=Acol*ARow;   for i:=0 to ACol*ARow-1 do AddZeroItem;   inherited create; end; destructor TMatrix.Destroy; var i:integer; begin   for i:=0 to AItems.Count-1 do     begin       MatrixItem:=AItems.Items[i];       dispose(MatrixItem);     end;   AItems.Free;   inherited Destroy; end; procedure TForm1.Button1Click(Sender: TObject); begin   Matrix:=TMatrix.create(1000,1000); end; procedure TForm1.Button2Click(Sender: TObject); begin   Matrix.Free; end; end.

Я не мастер работать с памятью и указателями. Может кто что подскажет?

Заранее благодарен.

Это сообщение отредактировал(а) Girder - 1.11.2005, 16:44

Цитата(Andrei @ 1.11.2005, 16:41)

Почему-то существенно решает проблему удаление помеченной строки.

У меня это полностью решает проблему. А смысла в этой строке нет - выделенную память после этого уже не освободить, т.к. бесследно пропадает её адрес...
А чем не устраивает обычный двумерный динамический массив ?

Код

var   Matrix : array of array of TComplex; procedure TForm1.Button1Click(Sender: TObject);     begin       SetLength (Matrix, 1000, 1000); end;     procedure TForm1.Button2Click(Sender: TObject);     begin       SetLength (Matrix, 0); end;