如何处理的代码！

[Nizvoo]

定义一个函数

function aa: TStringList;
var
stlResult: TStringList;
begin
stlResult := TstringList.Create;
Result := stlResult;
stlResult.Free; //如果无此句，则正确，因为释放后Result就不知道指向哪里了
end;

请指教，批评

[ht99]

本来就不应该Free的。

[Nizvoo]

再接接，加分

[backlove]

关注，我也挺困惑的

[王集鹄]

一切都是数据 :)
一切变量都是指针 :)

//希望这个连接对你有所帮助//从新认识编程
http://www.csdn.net/Expert/TopicView1.asp?id=806954

[zhxfzhxf1]

function aa: TStringList;
var
stlResult: TStringList;
begin
stlResult := TstringList.Create;
Result := stlResult;
stlResult.Free;
end;
进行资源申请与释放的工作应该在同一层次进行。这样的语句严重违反了这一规则。
可以用 zswang(伴水) 的方法。
把结果改为参数进行传递。

[Nizvoo]

莫非一定得等到其拥有者Free时一齐Free吗？

[王集鹄]

var
Form1: TForm1;

//....
var
Form2: TForm1;
begin
Form2 := Form1;
Form2.Caption := 'Form2是一个对象的指针';
end;

[manboo]

我认为可以这样处理的，如果有必要创建一个StringList的话不应该由函数创建，再外部创建，内部引用不好吗？何苦呢！

[王集鹄]

var
Form1: TForm1;

//....
var
Form2: TForm1;
begin
Form2 := Form1;
Form2.Caption := 'Form2是一个对象的指针';
end;

[王集鹄]

var
Form1: TForm1;

//....
var
Form2: TForm1;
begin
Form2 := Form1;
Form2.Caption := 'Form2是一个对象的指针';
end;

[manboo]

我认为可以这样处理的，如果有必要创建一个StringList的话不应该由函数创建，再外部创建，内部引用不好吗？何苦呢！

[王集鹄]

function aa: TStringList;
var
stlResult: TStringList;
begin
stlResult := TStringList.Create; //得到一个TStringList实例的地址
ShowMessage(Format('%p', [Pointer(stlResult)]));
Result := stlResult; //Result指向实例的地址
ShowMessage(Format('%p', [Pointer(Result)]));
stlResult.Free; //指向实例的地址虽然没有改变但实例已经释放
end;

[王集鹄]

function aa: TStringList;
var
stlResult: TStringList;
begin
stlResult := TStringList.Create; //得到一个TStringList实例的地址
ShowMessage(Format('%p', [Pointer(stlResult)]));
Result := stlResult; //Result指向实例的地址
ShowMessage(Format('%p', [Pointer(Result)]));
stlResult.Free; //指向实例的地址虽然没有改变但实例已经释放
end;

[Nizvoo]

有没有补救措施

[王集鹄]

function aa(mStrings: TStrings): Boolean;
begin
Result := False;
if not Assigned(mStrings) then Exit;
{ TODO : 处理mStrings }
Result := True;
end;

//demo
aa(Memo1.Lines);

[dearmyfriend]

zswang(伴水)说得对

[Kingron]

用Zswang的方法，或者这样：
function aa：TStringList；
begin
Result：=TStringList。Create；
Result。Add（‘abc’）；
。。。。。
end；

var
T：TStringList；
。。。
T：=aa；
ShowMessage（T。Text）；
T。Free；
这样也不会有内存泄漏吧？

[Nizvoo]

各位，谢谢啦~~~~~~~~~~~~~~~~

[Nizvoo]

再接

[Nizvoo]

UPUP~~~~~~~~~~~~~~~~