VPF::Когда испольовать метод Free - Форум программистов

Mach3

Дата 11.12.2011, 05:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

После длительной работы программы, она начинает занимать памяти до 200мб и больше. Дольше не проверял.
Не пойму, откуда столько берется =)
Предпологаю, что в результате следующего..
Пример кода:

Код


Procedure x();
var
list : TStringList;
i : integer;
Begin
list := TStringList.Create;
for i := 0 to 9 do
list.add('string');
end;

Если вызвать 1000 раз процедуру Х, то в памяти будет 1000 экзэмпляров list в каждом из которых по 10 string?!
Т.е. в конце процедуры надо вызвать list.free;

Код


procedure Y (s1:string; var s2,s3:TStringList);
var
i : integer;
Begin
s2 := TStringlist.Create;
s3 := TStringList.Create;
for i := 0 to 9 do begin
s2.add('string');
s3.add('string');
end;
end;

s2.free; s3.free; приведет к тому, что процедура ничего не "вернет"..

А если эту процедуру вызвать 1000 раз?

Код


var
i : integer;
s : string;
t,t1 : TStringList;
Begin
for i := 0 to 999 do begin
Y(s,t,t1);
end;

Как высвобождать память?
Спасибо.

Это сообщение отредактировал(а) Mach3 - 11.12.2011, 06:28

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

Век живи - век учись...

Данкинг

Дата 11.12.2011, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А не проще list : TStringList; объявлять глобально и делать ему .free по выходу из программы?

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

There's nothing left but silent epitaphs.

Keeper89

Дата 11.12.2011, 14:02 (ссылка)

(голосов:5)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Код




procedure Y (s1:string; s2,s3:TStringList);
var
i : integer;
Begin
  for i := 0 to 9 do
  begin
    s2.add('string');
    s3.add('string');
  end;
end;

procedure Main();
var
  s2, s3: TStringList;
begin
  s2 := TStringlist.Create;
  s3 := TStringList.Create;
  try
    Y('111', s2, s3);
    // Тут делаем что-то с s2 & s3
  finally
    FreeAndNil(s2);
    FreeAndNil(s3);
  end;
end;

Это сообщение отредактировал(а) Keeper89 - 11.12.2011, 15:40

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »