Поиск на компе

[cargo29]

unit Audit1;
interface

uses windos;

var
  dest: string;

procedure dorecurse(dir: string);

implementation
{$R *.DFM}

procedure Process(dir: string; Searchrec: tsearchrec);
begin
  showmessage(Searchrec.name);
  case Searchrec.attr of
    $10:
      if (searchrec.name <> '.') and (searchrec.name <> '..') then
      begin
        dorecurse(dir + '\' + searchrec.name);
        writeln(dir);
      end;
  end;
end;

procedure Dorecurse(dir: string);
var
  Searchrec: Tsearchrec;
  pc: array[0..79] of Char;
begin
  StrPCopy(pc, dir + '\*.*');
  FindFirst(pc, FaAnyfile, SearchRec);
  Process(dir, SearchRec);
  while FindNext(SearchRec) <> -18 do
  begin
    Process(dir, SearchRec);
  end;
end;

procedure startsearch;
begin
  dorecurse(paramstr(1));
end;

begin
  startsearch;
end.

вот код взял с делфи ворд но почему пишет ошибку


где тут ошибка и как тут указать какой файл найти???

[cargo29]

вот это подчеркивает

uses windos;

[cargo29]

никто не знает??????????

[Пепел Феникса]

странно что там код такой есть, это ж паскаль.

function ScanDir(Directory,FileName,Extention:string;Strings:TStrings;IgnoreCase,Dirs,Files:boolean;SubFoldersCount:integer):longword;
var SR:TSearchRec;
    s:string;
begin
 Directory:=IncludeTrailingPathDelimiter(Directory);
 if IgnoreCase then FileName:=ANSILowerCase(FileName);
 Extention:=ANSILowerCase(Extention);
 Result:=0;
 if Strings=nil then exit;
 if not DirectoryExists(Directory) then exit;
 try
  if FindFirst(Directory+'*.*',faAnyFile,SR)<>0 then exit;
  repeat
   if(SR.Name<>'.')and(SR.Name<>'..') then begin
                                          if ((SR.Attr and faDirectory<>0)and(SubFoldersCount>0))then Result:=Result+ScanDir(Directory+SR.Name,FileName,Extention,Strings,IgnoreCase,Dirs,Files,SubFoldersCount-1);
                                          if Dirs then begin
                                                        if IgnoreCase then s:=ANSILowerCase(SR.Name) else s:=SR.Name;
                                                        if ((SR.Attr and faDirectory)<>0)and((FileName='')or(Pos(FileName,s)<>0))then begin
                                                                                                                                       Result:=Result+1;
                                                                                                                                       Strings.Add(Directory+SR.Name);
                                                                                                                                      end;
                                                       end;
                                          if Files then begin
                                                         if IgnoreCase then s:=ANSILowerCase(SR.Name) else s:=SR.Name;
                                                         if ((SR.Attr and faDirectory)=0)and((FileName='')or(Pos(FileName,s)<>0))and((Extention='')or(Extention=ANSILowerCase(ExtractFileExt(SR.Name))))then begin
                                                                                                                                                                                                              Result:=Result+1;
                                                                                                                                                                                                              Strings.Add(Directory+SR.Name);
                                                                                                                                                                                                             end;
                                                        end;
                                         end;
  until FindNext(SR)<>0;
 finally
  FindClose(SR);
 end;
end;

я пользовался ею(точнее её более продвинутой версией, но она private)

[vovk]

Сообщение от cargo29

вот это подчеркивает

uses windos;

Круто

WINDOWS

[Serge_Bliznykov]

а мне нравится код, который неоднократно приводился тут на форуме:

http://www.programmersforum.ru/showthread.php?t=117683
http://www.programmersforum.ru/showthread.php?t=112435
http://www.programmersforum.ru/showthread.php?t=96145

p.s. по всем вышеприведённым ссылкам я предлагаю один и тот же код...

[KrPr]

для поиска всегда пользуюсь компонентом mFileScan легкий, быстрый.

[Serge_Bliznykov]

для поиска всегда пользуюсь компонентом mFileScan легкий, быстрый.

угу. а если в него заглянуть, то наверняка увидим, что это обёртка всё на теми же APIшными функциями FindFirst / FindNext

[cargo29]

Сообщение от Пепел Феникса

странно что там код такой есть, это ж паскаль.

function ScanDir(Directory,FileName,Extention:string;Strings:TStrings;IgnoreCase,Dirs,Files:boolean;SubFoldersCount:integer):longword;
var SR:TSearchRec;
    s:string;
begin
 Directory:=IncludeTrailingPathDelimiter(Directory);
 if IgnoreCase then FileName:=ANSILowerCase(FileName);
 Extention:=ANSILowerCase(Extention);
 Result:=0;
 if Strings=nil then exit;
 if not DirectoryExists(Directory) then exit;
 try
  if FindFirst(Directory+'*.*',faAnyFile,SR)<>0 then exit;
  repeat
   if(SR.Name<>'.')and(SR.Name<>'..') then begin
                                          if ((SR.Attr and faDirectory<>0)and(SubFoldersCount>0))then Result:=Result+ScanDir(Directory+SR.Name,FileName,Extention,Strings,IgnoreCase,Dirs,Files,SubFoldersCount-1);
                                          if Dirs then begin
                                                        if IgnoreCase then s:=ANSILowerCase(SR.Name) else s:=SR.Name;
                                                        if ((SR.Attr and faDirectory)<>0)and((FileName='')or(Pos(FileName,s)<>0))then begin
                                                                                                                                       Result:=Result+1;
                                                                                                                                       Strings.Add(Directory+SR.Name);
                                                                                                                                      end;
                                                       end;
                                          if Files then begin
                                                         if IgnoreCase then s:=ANSILowerCase(SR.Name) else s:=SR.Name;
                                                         if ((SR.Attr and faDirectory)=0)and((FileName='')or(Pos(FileName,s)<>0))and((Extention='')or(Extention=ANSILowerCase(ExtractFileExt(SR.Name))))then begin
                                                                                                                                                                                                              Result:=Result+1;
                                                                                                                                                                                                              Strings.Add(Directory+SR.Name);
                                                                                                                                                                                                             end;
                                                        end;
                                         end;
  until FindNext(SR)<>0;
 finally
  FindClose(SR);
 end;
end;

я пользовался ею(точнее её более продвинутой версией, но она private)

а как тут указать какой файл надо искать?* и потом вывести путь до этого файла?

[cargo29]

подскажет кто нить?