Não entendo estas Funções

[Marcosvbn 0]

Bom pessoal fazia tempo que eu não postava aqui uma duvida

mais eu tenho uma que talvez seja bem simples de resolver pra quem já sabe

mais eu ainda não trabalho muito com arquivos e o que sei é que estas funções servem pra trabalhar com arquivos

 

FindFirst , FindNext

 

Olha eu não entendo como usar

se alguem poder explicar eu agradeço

[bdexterholland 0]

A rotina FindFirst é utilizada para realizar o primeiro arquivo de acordo com o critério informado. O resultado da busca é gravado em uma variável do tipo TSearchRec.

Seus parâmetros são:

Path : String     // Caminho a procurar, ex c:\Windows\
Attr : Integer    //Adiciona arquivos com estes atributos especiais além dos que seriam listados normalmente. Estes atributos podem ser:
                 //faReadOnly - faHidden - faSysFile - faVolumeID - faDirectory - faArchive - faAnyFile
                 //Para usar mais de um atributo ao mesmo tempo, utilize o sinal de adição (+) 
                 //ex.: faHidden + faDirectory lista todos os diretórios ocultos
F    : TSearchRec //Record com os dados do arquivo encontrado

 

FindFirst retorna 0 (zero) quando econtra o arquivo

 

A rotina FindNext é utilizada para localizar os arquivos seguintes a busca de FindFirst. FindNext aceita apenas um parâmetro do tipo TSearchRec e retorna 0 caso encontre. Abaixo segue source de exemplo:

 

procedure TForm1.DirList( ASource : string; ADirList : TStringList );
var
   SearchRec : TSearchRec;
   Result : integer;
begin
   Result := FindFirst( ASource, faAnyFile, SearchRec );
   if Result = 0 then
   while (Result = 0) do
   begin
      if (SearchRec.Name+' ')[1] = '.' then
      { Se pegou nome de SubDiretorio }
      begin
         Result := FindNext( SearchRec );
          Continue;
      end;
      ADirList.Add( SearchRec.Name );
      Result := FindNext( SearchRec );
   end;
   FindClose( SearchRec );
   ADirList.Sort;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   contador: Integer;
   lista: TStringlist;
begin
   lista:= TStringlist.create;
   DirList('C:\*.*', lista);
end;

 

Fonte: EduDelphiPage | Help do Delphi 2006