怎么遍历一个目录里面所有的文件?

Question

att

Answer 1

procedure TMainForm.DoSearchPathFile;
var
  SR: TSearchRec;
  FileAttr,i: integer;
  MDataPath:string;
begin
  i:=1;
  FileAttr := faDirectory;
  if groupbox4.Visible=true then
     MDataPath:=pbvar.BackupPath+ 'data\'
  else
  MDataPath:=myfunction.Path+'data\';
  FindFirst(MDataPath+'*.*', FileAttr, SR);
  While FindNext(SR) = 0 do
  begin
    if (SR.Name <> '.') and (SR.Name <> '..') then
    begin
      if not DirectoryExists(MDataPath+ SR.Name) then
       try
         if i=1 then
         begin
         queryform.date1.MinDate:=strtodate(LeftStr(SR.Name,length(SR.Name)-4));
         queryform.date2.MaxDate:=strtodate(LeftStr(SR.Name,length(SR.Name)-4));
         end;
         i:=i+1;
         if queryform.date1.Date>strtodate(LeftStr(SR.Name,length(SR.Name)-4))then
            queryform.date1.MinDate:=strtodate(LeftStr(SR.Name,length(SR.Name)-4));
         if queryform.date2.Date<strtodate(LeftStr(SR.Name,length(SR.Name)-4))then
            queryform.date2.MaxDate:=strtodate(LeftStr(SR.Name,length(SR.Name)-4));
         except
         end;
         queryForm.date1.MaxDate:=queryform.date2.MaxDate;
         QueryForm.date2.MinDate:=queryForm.date1.MinDate;
  end;
  end;
  FindClose(SR);
  if i=1 then
  begin
  Messagebox(MainForm.Handle,'还没有录音记录！','提示',MB_ICONASTERISK);
  queryform.BitBtn1.Enabled:=false;
  end;
end;