TTest = Class
public
constructor Create();
destructor Destroy; override;
Function BuderAA():TStrings;
end;Function TTest.BuderAA():TStrings
var
i:Integer;
AA:TStrings;
begin
AA:= TStringList.Create;
for i:= 0 to 10 do
begin
AA.Add(IntToStr(i));
end;
result;
end;在使用的时候我不释放AA:TStrings
TTest会自动释放AA:TStrings吗?
public
constructor Create();
destructor Destroy; override;
Function BuderAA():TStrings;
end;Function TTest.BuderAA():TStrings
var
i:Integer;
AA:TStrings;
begin
AA:= TStringList.Create;
for i:= 0 to 10 do
begin
AA.Add(IntToStr(i));
end;
result;
end;在使用的时候我不释放AA:TStrings
TTest会自动释放AA:TStrings吗?
解决方案 »
- 下面这几行xmlhttp.get异步发送请求的代码用delphi怎么写?
- 谁能帮我看看哪里错了,编译不出来,这里是部分代码
- 请问‘ floating point divisionby zero' ' invalid floating point operation' 错误原因是什么?
- 求救各位大侠:
- 急~~~~请问:TclientDataset 中不连应用服务器,只建虚拟表,如何才能把Active设置的True?在线等
- 简单,这是错误如何解决,在线等
- 怎么实现TtreeView的制定叶子的点击事件?
- 跨网段使用sqlserver,支持事务处理的COM+报“新事务不能登记到指定的事务处理器中”?
- 求救!Dbgrid简单问题!
- DBGRID等控件的选中的颜色能不能改呢?默认是蓝色的!
- ((a+b)*c or d>0) or a=e and e>f ----字符串截取的部题 ~~~急~~~~~~
- 有关tidudpserver控件的一个问题?
--------
是的。
我写代码的习惯,有Create就有Free或FreeAndNil。