Освобождение памяти

Heylal · 28.06.2011, 02:18

Обязательно ли освобождать память? Ведь после закрытии формы она и так освободится.
И чем отличается Free от Destroy?

Добавлено через 10 минут
У меня в цикле s:=TStringList.Create; без освобождения памяти это получается происходит нагрузка?

**Dinmaite** · 28.06.2011, 09:53

Память освобождать нужно в зависимости от того нужно ли вам осовобождать память.
Если Вы в цикле создаете множество объектов, которые вам вне цикла не нужны - память, выделенную под них, необходимо освобождать, иначе загадите оперативку (или файл подкачки) мусором.

Если Вас интерисуют различия конкретно для TStringList

Free ("безопасное" уничтожение, перед уничтожением проверяется существование объекта):

Код:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Destroy:

Код:

destructor TStringList.Destroy;
begin
  FOnChange := nil;
  FOnChanging := nil;
  inherited Destroy;
  if FCount <> 0 then Finalize(FList^[0], FCount);
  FCount := 0;
  SetCapacity(0);
end;

VeTaL_UA · 28.06.2011, 09:55

Для TStringList лучше использовать Free:

Код:

s.Free

**Dinmaite** · 28.06.2011, 11:31

Если программа работает по 1 час, и этот цикл выполняется с периодом в 1 секунду, и размер вашего стринглиста 1 метр, то за этот самый час вы займете 3600 метров памяти.