[Delphi] Procurar arquivos

[Mr.Expert 55]

Declare a procedure;

 

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;

 

Utilize a função assim, deletando begin e end; no botão que irá usá-lo:

 

var

 

contador: Integer;

 

lista: TStringlist;

 

begin

 

lista:= TStringlist.create;

 

DirList('C:\*.*', lista);

 

end;

[ipu 1]

Mla explicado.

Horrível '-'

Tenat melhorar ae!

@Abraços

[Mac! 0]

É algo muito básico e simples de se fazer, porem toda via com tudo uma pessoa que não saiba por onde começar, nunca iria acertar esse seu tutorial pois está muito desorganizado e mal explicado.

[Skinn3r' 1]

Ae manin , explica melhor ,

coloca cores ae nesse post

pois esta muito dificil de entender