如何从函数返回一个字符串列表已经讨论过很多次了。我的代码序列版本1只是回顾如何实现它。
function GetStrings : TStringList;
begin
Result := TStringList.Create;
Result.Add('string A');
Result.Add('string B');
end;
procedure TForm1.Button1Click(Sender: TObject);
var stemp : tStringList;
begin
stemp := GetStrings;
MyListBox.items.addstrings(stemp);
stemp.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MyListBox.items.addstrings(GetStrings);
end;
在版本2中,有没有任何选项可以“无需额外代码”修复内存泄漏问题?这种方法到底有多危险?如果我的字符串列表只有几个字符串项,这会导致任何故障吗?是否不会出现内存不足的问题?