请教一个问题?(10分)

W

wataki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #1

function Get_File(Path:string):TStrings
//Path就是制定的路径，得到文件的列表以TStrings返回
const FileAttrs = faAnyFile and (not fadirectory);
var
SRec: TSearchRec;
FindResult:Integer;
begin
Result:=TStringList.Create

FindResult:=FindFirst (Path+'/'+'*.*', FileAttrs, SRec);
//^^^^^------此处可以进行文件类型的过滤
while FindResult= 0 do
begin
if (SRec.Name <&gt
'.') and (SRec.Name <&gt
'..') then
begin
Result.Add(SRec.Name);
FindResult:=FindNext(SRec);
end;
end;
FindClose (SRec);
end;

以上函数的Result会不会自动释放呢?

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #2

不会自动释放.
好的办法是你从参数表中传入TStringList对象,在函数操作它.
TStringList的构造和释放由外部维护.
function Get_File(Path:string
list:TStrings):boolean

const FileAttrs = faAnyFile and (not fadirectory);
var
SRec: TSearchRec;
FindResult:Integer;
begin
Result := false;
if list = nil then
exit;

list.Clear;
FindResult:=FindFirst (Path+'/'+'*.*', FileAttrs, SRec);
while FindResult= 0 do
begin
if (SRec.Name <> '.') and (SRec.Name <> '..') then
begin
list.Add(SRec.Name);
FindResult:=FindNext(SRec);
end;
end;
FindClose (SRec);
Result := true;
end;

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #3

释放了 你怎么得到结果啊？ ^_^

 

H

hellorookie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #4

不会自动释放

 

W

wataki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #5

list传入的应该是一个指针吧？

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #6

比如:
将入TListBox的示例:
Get_File('c:/', lbFiles.Items):

就将c:/下的文件列表将载到lbFiles中了.

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #7

function Get_File(Path:string
VAR list:TStrings):boolean

还要加个VAR吧？？

 

W

wataki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #8

这里好像不用加的

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #9

不是好像，是肯定不用加。
对象的实例名都是指针，值为地址。
呵呵

 

W

wataki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #10

那么是不是说函数的返回结果是对象时该对象就没有办法释放了？

 

H

hellorookie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #11

调函数前声明的对象，不创建，直接Assign得到，然后就可以释放了

 

W

wataki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-08

• #12

hellorookie请给出代码,谢谢

 

W

wataki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-10

• #13

多人接受答案了。