TStringList :
1.
procedure Foo(AStl: TStringList);
var
stl: TStringList;
begin
//stl:= TStringList.Create; //不需要Create, 直接塞指標
stl:= AStl;
end;
2.
function Foo(Sender: TObject): TStringList;
var
stl: TStringList;
begin
stl:= TStringList.Create;
Result:= stl;
....
//stl.Free; //不需要Free, 回傳指標, Free之後資料會不見
end;
