Jump to content
BHAMF

Como visualizar ver arquivos que têm dentro de pastas

Recommended Posts

BHAMF

Uma dúvida CRUEL que não consigo resolver. Há algum comando para listar arquivos e pastas na tela e exibi-las na consola?


Brenio Hallison A.M. Filho

 

Share this post


Link to post
Share on other sites
BHAMF

Obrigado Passarito. Entendi aqui, mas queria que me explicasse cada parte do código. Vi que funciona, mas não estou conseguindo compreender...


Brenio Hallison A.M. Filho

 

Share this post


Link to post
Share on other sites
passarito

O findfirst procura o primeiro ficheiro, o findnext procura os seguintes. Em ambas as funções é devolvido um valor em que se for zero quer dizer que encontrou.

Assim, um exemplo rápido e fácil será:

Uses SysUtils;

Var Info:TSearchRec;

begin
  if findfirst('*.pas', AnyFile, Info)=0 then begin  //procura o primeiro ficheiro e coloca a informação no record Info
    repeat
      writeln(info.name);
    until findnext(info)<>0; //procura o próximo ficheiro
  end;
  findclose(Info);  //fecha find
end.

O registo Info tem "todas" as informações do ficheiro: Nome, data, tamanho, etc.

Estrututa do TSearchRec: https://www.freepascal.org/docs-html/rtl/sysutils/trawbytesearchrec.html

 

 

  • Vote 2

Share this post


Link to post
Share on other sites
BHAMF

Agradecimentos para tu, @passarito, ajudou muito! 

 

:D_

 

B.H.A.M.F.

17/07/2018 | 11:13 (Horário de Brasília)


Brenio Hallison A.M. Filho

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.