摘要：
procedure TForm1.Button1Click(Sender: TObject);var Dir: TSearchRec; //文件结构begin if FindFirst(edit1.Text,faAnyFile,Dir) = 0 then begin repeat //是目录吗? //and 的作用是通过 "与" fadirectory 消掉Attr中的其它文件,只取留下faDirectory属性 //通过 or 可以添另其它属性 if(Dir.Attr and faDirec... 阅读全文
