Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Заполнение и очистка TList   Найти похожие ветки 

 
Max ©   (2004-03-07 12:43) [0]

Есть такой код:

type
 PLType = ^ALType;
 ALType = record
   Name: String;
   Type: Byte;
 end;

var
 List: TList;  

...

procedure TForm1.FormCreate(Sender: TObject);
var
 I: Integer;
 Item: PLType;
begin
 for I := 1 to 100 do
 begin
   New(Item);
   ...
   List.Add(Item);
 end;
end;


При выходе List очищается таким образом:

procedure TFrom1.FormDestroy(Sender: TObject);
var
 I: Integer;
 Item: PLType;  
begin
 for I := 0 to List.Count - 1 do
 begin
   Item := List.Items[I];
   Dispose(Item);
 end;
 List.Clear;
 List.Free;
end;


Можно это делать таким образом, т.е. заменить PLType на Pointer? Будет ли это правильно?

procedure TFrom1.FormDestroy(Sender: TObject);
var
 I: Integer;
 Item: Pointer;  
begin
 for I := 0 to List.Count - 1 do
 begin
   Item := List.Items[I];
   Dispose(Item);
 end;
 List.Clear;
 List.Free;
end;


 
Digitman ©   (2004-03-07 13:10) [1]

нет, правильным это не будет
утечка памяти гарантирована из-за неосвобождения памяти под string-поле


 
panov ©   (2004-03-07 13:10) [2]

Нет, правильно в первом случае, либо в строчке с Dispose надо приводить указатель к нужному типу, так как компилятор не знает тип переменной, на которую ссылается Pointer.


 
Max ©   (2004-03-07 13:24) [3]

panov
Dispose(PLType(Item)) - так?


 
Digitman ©   (2004-03-07 13:29) [4]

procedure TFrom1.FormDestroy(Sender: TObject);
var
I: Integer;
begin
with List do
try
 for I := 0 to Count - 1 do
  Dispose(PLType(Items[I]));
finally
 Free;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
1-1078900964
Лысый
2004-03-10 09:42
2004.03.28
Округление


9-1062027399
Dimon
2003-08-28 03:36
2004.03.28
Нужен компанент


14-1077630016
МАКСЮХА
2004-02-24 16:40
2004.03.28
Жду ответов и советов по написанию чата


1-1078408685
Timego
2004-03-04 16:58
2004.03.28
Архитектура приложения


1-1078854607
hgd
2004-03-09 20:50
2004.03.28
Как организовать стек