freepascal.ru

Код: Выделить всё

program find;

{$mode objfpc}
{$H+}

uses
  SysUtils, Classes;

procedure ViewDir(Dir: string; FileName: string);
var
  sr,sr1: TSearchRec;
  FileTime,FileSize: Integer;
  FileNames: TFileName;

begin
// Выводим список файлов
  if FindFirst(IncludeTrailingPathDelimiter(Dir) + FileName, not faDirectory, sr) = 0 then
  begin
    writeln(IncludeTrailingPathDelimiter(Dir) + sr.Name);
    while FindNext(sr) = 0 do
    begin
      writeln(IncludeTrailingPathDelimiter(Dir) + sr.Name);
    end;
  end;
  FindClose(sr);

  if FindFirst(IncludeTrailingPathDelimiter(Dir) + '*', faDirectory, sr) = 0 then
  begin
    if ((sr.Attr and faDirectory) <> 0) and (sr.Name <> '.') and (sr.Name <> '..') then
    begin
      ViewDir(IncludeTrailingPathDelimiter(Dir) + sr.Name, FileName);
    end;
    while FindNext(sr) = 0 do
    begin
      if ((sr.Attr and faDirectory) <> 0) and (sr.Name <> '.') and (sr.Name <> '..') then
      begin
        ViewDir(IncludeTrailingPathDelimiter(Dir) + sr.Name, FileName);
      end;
    end;
  end;
  FindClose(sr);
end;

begin
  if ParamStr(1)='/?' then writeln(ParamStr(0),' [patch] /r /?');
  if ParamStr(2)='/r' then ViewDir(copy(ParamStr(0),0,3), '*');
  if ParamStr(1)=''   then ViewDir('', '*');
  readln;
end.

Код: Выделить всё

function AddFilesToList(List: TStringList; Dir: string);
begin
  1. поместить список файлов и каталогов из каталога Dir во временный список
  2. пройтись циклом по списку, файлы добавлять в List, а для каталогов вызывать рекурсивно AddFilesToList
end;

Код: Выделить всё

procedure SearchInDir(PathIn:String; St:TStringList);
var
   SearchRec: TSearchRec;
   i:integer;
   Attr:Integer;
begin
   Attr:=faAnyFile;
   PathIn:=PathIn+'\*.*';
   i:=FindFirst(PathIn,Attr,SearchRec);
   while i=0 do
      begin
         PathIn:=ExtractFilePath(PathIn)+SearchRec.Name;
         if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
         if (SearchRec.Attr and faDirectory)>0 then
            begin
               SearchInDir(PathIn,St);
            end else St.Add(PathIn);
         i:=FindNext(SearchRec);
      end;
   FindClose(SearchRec);
end;

Код: Выделить всё

procedure TForm1.FirstBtnClick(Sender: TObject);
var
   Path:String;
   St:TStringList;
begin
   Path:='c:\windows';
   St:=TStringList.Create;
   SearchInDir(Path,St);
   St.SaveToFile('c:\text.txt');
   St.Free;
end;