[Евгений79]

Код:

function test:Tstrings
begin
 result:=TStringsList.Create;
 result.add('over 1gb text'); // Ж)
end;

procedure blabla;
var
 t:TStrings;
begin
 t:= test;
 memo1.lines.addStrings(t);
 t.free;
end;

t - как видно освобождаем из памяти,
а вот функцию test нет.
Или же все нормально?

[poli-smen]

Сообщение от Евгений79

Код:

function test:Tstrings
begin
 result:=TStringsList.Create;
 result.add('over 1gb text'); // Ж)
end;

procedure blabla;
var
 t:TStrings;
begin
 t:= test;
 memo1.lines.addStrings(t);
 t.free;
end;

t - как видно освобождаем из памяти,
а вот функцию test нет.
Или же все нормально?

Могут быть утечки если после создания объекта TStringsList в функции test возникнет исключение и дело не дойдёт до освобождения в функции blabla.

[Евгений79]

Значит командой t.free мы освобождаем и t и функцию?

Ну если нет исключений

[poli-smen]

Сообщение от Евгений79

Значит командой t.free мы освобождаем и t и функцию?

Ну если нет исключений

Нет такого понятия как "освобождаем функцию".

[Евгений79]

Разжуйте пожалуйста механику процесса, чтобы в голове был порядок.
Если это, конечно, возможно сделать в нескольких предложениях.

[NumLock]

все Ok будет

[Lost_Fish]

Сообщение от Евгений79

Код:

function test:Tstrings
begin
 result:=TStringsList.Create;
 result.add('over 1gb text'); // Ж)
end;

procedure blabla;
var
 t:TStrings;
begin
 t:= test;
 memo1.lines.addStrings(t);
 t.free;
end;

функция Test создаёт лист и присваивает адрес листа указателю Result, по выходу из этой функции адрес из Result копируется в другой указатель T дальше ты мутишь через указатель с этим списком всё что хочешь и освобождаешь его.

утечка возникнет если ты не сделав t.Free сделаешь ещё раз t:= test тогда у тебя в памяти будет 2 листа а указатель будет только на один

хорошо про указатели утечки и освобождения памяти вот тут http://www.transl-gunsmoker.ru/2009/09/blog-post.html