Освобождение памяти у функции при возврате класса

[Devvver]

Есть к примеру функция

function Namefunction(my:Tstring) :Tstringlist   ;
begin
// тут берутся какие то данные из my
// и возвращаются через result:=sortLSI;
// где sortLSI экземпляр класса Stringlist 
end

Вопрос - можно ли в функции освободить sortLSI ? Если нет - то когда он освободится?

[Pavia]

result:=sortLSI; Тут присвоение идёт по механизму присвоение указателя указателю. Поэтому если вы освободите sortLSI, то все кто будет работать с result получат невалидные данные.

[Devvver]

Сообщение от Pavia

result:=sortLSI; Тут присвоение идёт по механизму присвоение указателя указателю. Поэтому если вы освободите sortLSI, то все кто будет работать с result получат невалидные данные.

Понятно. А если ситуация следующая - в функции я в var объявлю sortLSI , далее ее создам, можно ли потом делать так

result:=sortLSI;
sortLSI.FREE;

Это корректно?

[Аватар]

Нет конечно. Функция возвратит поломанный sortLSI. Освобождай после вызова функции

[Devvver]

Сообщение от Аватар

Нет конечно. Функция возвратит поломанный sortLSI. Освобождай после вызова функции

Это на 1 сообщение или на второе ответ?

[Аватар]

это на фразу

Это корректно?

[Devvver]

Что то я запутался. Давайте на конкретном примере.

function Namefunction :Tstringlist   ;
var
SortLSI:Tstringlist;
begin
SortLSI:Tstringlist.Create;
SortLSI.Add('Новая строка');
result:=sortLSI;
end;

В обработчике событий, к примеру кнопка

procedure TForm2.add_urlClick(Sender: TObject);
var 
FSortLSI:Tstringlist;
begin
FSortLSI:=Tstringlist.Create;
FSortLSI:= Namefunction;
Memo1.lines.AddStrings(FSortLSI);
FSortLSI.free;
end;

Вопрос - в функции мы не освободили sortLSI.
В обработчике кнопки мы освободили FSortLSI, освободится ли переменная sortLSI?
Если можно - дайте ссылки где можно почитать о правилах освобождения памяти классов.

[Aliens_wolfs]

можно сделать так

function Namefunction: Tstringlist;
begin
result:= Tstringlist.Create;
result.Add('Новая строка');
end;

procedure TForm2.add_urlClick(Sender: TObject);
begin
Memo1.lines.AddStrings(Namefunction);
end;

вы уже class строки Memo отдали, а далее по идее освобождение будет такое.

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.lines.Delete(Memo1.lines.Count-1);
end;

Либо по всем

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.lines.Clear;
end;

[Pavia]

Вот смотри у вас Create 2 раза, а Free 1 раз. Это неправильно.

Сообщение от Devvver

FSortLSI:=Tstringlist.Create;
FSortLSI:= Namefunction;

Здесь у вас утечка памяти.
Объект вы создали и тут же заменили его указатель другим. Тем самым у вас в памяти получился объект на который не указывает ни одна переменная.

Выкинуть лишний Create и всё. Какой из 2-х решать вам. Я бы выкинул бы первый.

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

В первом случает мы должны обозвать функцию как Create.
К примеру ElementCreate.

А во втором случае работает авто подсчёт ссылок и там объект на который никто не ссылается автоматически удаляется.

procedure NameAdd(var SortLSI:Tstringlist);
begin
SortLSI.Add('Новая строка');
end;


procedure TForm2.add_urlClick(Sender: TObject);
var 
FSortLSI:Tstringlist;
begin
FSortLSI:=Tstringlist.Create;
AddName(FSortLSI);
Memo1.lines.AddStrings(FSortLSI);
FSortLSI.free;
end;

[evg_m]

Вопрос - в функции мы не освободили sortLSI.
В обработчике кнопки мы освободили FSortLSI, освободится ли переменная sortLSI?

Освобождать мы будем НЕ переменную.
А объект, ссылка на который находится в данной переменной.
А также м.б. (ссылка на ЭТОТ же объект) еще в десятке других переменных.
sortLSI, FSortLSI, result --к примеру. РАзные переменные, но один и тот же объект.

НО освободить (Free) объект мы должны РОВНО один раз.
при этом(после Free) ВСЕМИ прочими ссылками(переменными) мы НЕ сможем (и не имеем права) пользоваться.
при желании(или необходимости) мы можем заменить их(значения переменных) :=nil.

result:=sortLSI;
sortLSI:=nil;FreeAndNil(sortLSI);

настоятельно рекомендуется если данная переменная существует(МОЖЕТ использоваться) и далее.
sortLSI дальше НЕ используется, так что...