Re: [delphi-br] Como faço para pegar o número de l inhas e o tamanho de um arquivo texto.

> end; >CloseFile ( arq ); >showmessage(inttostr(i)); > except Ops a linha do showmessage esta errada, o correto é showmessage(inttostr(cont)); - Original Message - From: "Nagual" <[EMAIL PROTECTED]> To: Sent: Tuesday, June 28, 2005 6:44 PM Subject: Re: [delphi-br] Como faço

Re: [delphi-br] Como faço para pegar o número de l inhas e o tamanho de um arquivo texto.

O tamanho em bytes: Crie um TFileStream apontando para o arquivo: function TForm1.pega_tamanho_arq(arquivo: string): Integer; begin with TFileStream.Create(arquivo, fmOpenRead or fmShareExclusive) do try Result := Size; finally Free; end; end; Agora é só chamar es