Цитата:
|
Сообщение от Евгений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.