1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Ciny_Cou 2006-02-26
- 打赏
- 举报
上述代码可以得到目录下的文件和目录
Ciny_Cou 2006-02-26
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
mydir : TSearchRec;//记录文件情况
begin
Memo1.Clear;
if FindFirst('d:\tools\*.*',faDirectory,mydir) = 0 then
begin
Memo1.Lines.Add(mydir.Name);//可以把目录名记录在mystrings中，以后再用
while FindNext(mydir) = 0 do
begin
Memo1.Lines.Add(mydir.Name);
end;
end;
findclose(mydir);
end;
var
mydir : TSearchRec;//记录文件情况
begin
Memo1.Clear;
if FindFirst('d:\tools\*.*',faDirectory,mydir) = 0 then
begin
Memo1.Lines.Add(mydir.Name);//可以把目录名记录在mystrings中，以后再用
while FindNext(mydir) = 0 do
begin
Memo1.Lines.Add(mydir.Name);
end;
end;
findclose(mydir);
end;
