Question

Delphi Tstringlist释放的问题

function get:TStringList;

var list:TstringList
begin
list:=TStringlist.create;
list.add('ssssss');
result:=list;
end;
这个简单的函数完全没法释放啊，如果释放了就获取不了返回值了吧，到底用不用释放？咋释放？

Answer 1

这个函数不需要释放。
你可以用以下方法验证：

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
PTT= ^TStringList;

TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function StrListFunError(Var AI: PTT):TStringList;

function StrListFunRight(Var AI: PTT):TStringList;
public
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
test:TStringList;
tt1:PTT;
begin
test:=TStringList.Create;
try

test:=StrListFunError(tt1);//虽然此时未报错，得所指向的对象已经不正确
ShowMessage(tt1^.Text ); //因为已经被释放，不能显示正确值
ShowMessage(test[0]); //出错，因为在原函数中已经被释放

test:=StrListFunRight(tt1);

ShowMessage(tt1^.Text); //test还没有使用，所以没有被释放，可以显示正确值

ShowMessage(test[0]);

ShowMessage(tt1^.Text); //test已经使用，所以被释放，出现错误

//结论：

//对于TStringList作为函数或者过程的返回值时，在被调函数内不需要释放
//由编译器进行自动处理
finally
test.Free;
end;
end;

function TForm2.StrListFunError(Var AI:PTT): TStringList;
var
Re:TStringList;
begin //错误代码
Re:=TStringList.Create;
Ai:=@Re;
try

Re.Add('Error Test; ');
Result:=Re;
finally

Re.Free;

end;
end;

function TForm2.StrListFunRight(var AI: PTT): TStringList;
var
Re:TStringList;
begin //正确代码
Re:=TStringList.Create;
Ai:=@Re;
try

Re.Add('Right Test;');
Result:=Re;
finally

//正确代码，不需要释放，交由编译器处理
//Re.Free;
end;

end;

end.

Answer 2

你这个函数从名字来看是获取一个字符串列表对象，从实现代码来看是申请并初始化一个字符串列表对象，我觉得这个本意应该是使用者用完了自行释放，或者你再提供一个释放的函数吧。你确定要在这个函数里面做释放动作吗？

Answer 3

result:=list;//在这个之后释放掉
list.free;