procedure TMainForm.FindFile(const Dir: string); //Dir必须带 '\'号
var
SR: TSearchRec;
found: integer;
begin
SR := FindFirst(dir + '*.*', faAnyFile, SR);
while found = 0 do
begin
if (SR.Attr = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
FindFile(Dir + SR.Name + '\');
ListBox.Items.Add(Dir + SR.Name);
found := FindNext(SR);
end;
FindClose(SR);
end;
var
SR: TSearchRec;
found: integer;
begin
SR := FindFirst(dir + '*.*', faAnyFile, SR);
while found = 0 do
begin
if (SR.Attr = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
FindFile(Dir + SR.Name + '\');
ListBox.Items.Add(Dir + SR.Name);
found := FindNext(SR);
end;
FindClose(SR);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货