Народ, как правильно очистить запись/все записи в TList? Проблема в том что выделяя память инструкцией New для очередной записи в TList, после выполнения инструкции List.Delete(n)или List.Clear память, выделенная под записи, не высвобождается… Например попробуйте кусок кода и запустите диспетчер задач, обратите внимание на расход памяти… Или может я чего-то не понимаю?

Type Rtest=Record
a:Array[0..1024*10] of byte;
end;
PTest=^Rtest;

procedure TForm1.Timer1Timer(Sender: TObject);
var test:PTest;
begin
New(Test);
List.Add(Test);
List.Clear;
end;

а с чего бы ей освобождаться?
Clear() только внутри компонента память чистит. а все самим-собой выделенное и чистить самому нужно

Гость_Alexander, для очистки динамической памяти используй процедуру: Dispose.
Пример:

Код

var  i:^integer; Begin  //Выделение памяти  New(i);  ......  //Работа с идентификаторами для которых она выделена  i^:=2;  Label1.Caption:=IntToStr(i^);  ......  //Освобождение памяти  Dispose(i) End;

Аналогично и ствоим примером.

Это сообщение отредактировал(а) Zero - 20.11.2004, 21:46

Что то, коллеги, ничего не получается. Вот кусок из реальной программы. Память рассходуется со скоростью звука не помагает ни Finalize, ни Dispose. Где глюк?

Type RNetFile=record
UserName,
FileName:WideString;
FileNameID:DWord;
StatusOpen:DWord;
TimeBegin,TimeEnd:TDateTime;
end;
PNetFile=^RNetFile;

Procedure TForm1.Clear;
begin
While List.Count<>0 do begin
Finalize(List.Items[List.Count-1]^);
Dispose(List.Items[List.Count-1]);
List.Delete(List.Count-1);
end;

Забыл кусок...

procedure TForm1.Timer1Timer(Sender: TObject);
var test:PNetFIle;
r:integer;
begin
for r:=1 to 100 do begin
New(Test);
Test^.UserName:='?????????????';
Test^.FileName:='C:\Download.html';
Test^.FileNameID:=34;
Test^.StatusOpen:=99;
List.Add(Test);
end;
Clear;
end;

Короче, я пока не проверял твою прогу, но сразу могу сказать замечание по поводу указания типов: Если, ты какому-нибудь идентификатору присваеваеш тип указатель, то эту строку надо писать до создания самого типа на который указывает указатель а не после.
Поэтому, попробуй написать так:

Код

type  PNetFile=^RNetFile;  RNetFile=record    UserName,FileName:WideString;    FileNameID:DWord;    StatusOpen:DWord;    TimeBegin,TimeEnd:TDateTime;  end; ...

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

Чуствую что для компилятора это значения не имеет (Шустрый). А вот что люди добрые подсказали, может кому нибудь интересно будет и познавательно... Всем спасибо и огромный respect... И так сточку:

Finalize(List.Items[List.Count-1]^);
Dispose(List.Items[List.Count-1]);

необходимо заменить на:

Dispose(PNetFIle(List.Items[List.Count-1]));

А это так, мысли в слух, не ужели никто не встречался с такой проблемой, не уж то ни кто не следит за расходом памяти?


-------------------------------------------

Все гениальноее ну очень просто