Delphi Tstringlist释放的有关问题
Delphi Tstringlist释放的问题
这个简单的函数完全没法释放啊，如果释放了就获取不了返回值了吧，到底用不用释放？咋释放？
------解决思路----------------------
基本同三楼,需要加上var
procedure test(var list: TstringList);
begin
list.add('asdf');
end;
------解决思路----------------------
1楼专家写的代码真是醉了，在误导人，请参考2楼吧。
function get:TStringList;
var list:TstringList
begin
list:=TStringlist.create;
list.add('ssssss');
result:=list;
end;
这个简单的函数完全没法释放啊，如果释放了就获取不了返回值了吧，到底用不用释放？咋释放？
------解决思路----------------------
基本同三楼,需要加上var
procedure test(var list: TstringList);
begin
list.add('asdf');
end;
------解决思路----------------------
1楼专家写的代码真是醉了，在误导人，请参考2楼吧。