Bom dia a todos... result := sCount-1; // é melhor
mas no seu código... S.LoadfromFile( arquivo.txt) TOTLINHAS := 0; <<<<< Faltou isso aqui for x=0 to s.Count -1 do Inc(TOTLINHAS) Hrq48 iG escreveu: > > Eu fiz assim: > > S.LoadfromFile( arquivo.txt) > > for x=0 to s.Count -1 do Inc(TOTLINHAS) > > mas retorna um valor muito esquisito > 1233488795 (???) > > Grato > > ----- Original Message ----- > From: Jackson Gomes - Tools&Comps > To: [EMAIL PROTECTED] os.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Sent: Monday, April 14, 2008 5:21 PM > Subject: Re: [delphi-br] Função que retorna número de linhas de TXT > > > Como posso obter o número total de linhas de um arquivo TXT ? > (arquivo.txt) > > Carregue pra memória com um TStringList e veja o Count do objeto (use > count-1) > > Jackson Gomes > Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear > Web Site: http://www.toolsand comps.com <http://www.toolsandcomps.com> > Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps > <http://groups.yahoo.com/group/toolsandcomps> > e-mail: [EMAIL PROTECTED] ps.com <mailto:jackson%40toolsandcomps.com> > Fone: 27 3389 1138 - 8811 0324 > ------------ --------- --------- --------- --------- --------- - > Devhost - Webhost para desenvolvedores Borland > http://www.devhost. com.br <http://www.devhost.com.br> > [EMAIL PROTECTED] com.br <mailto:devhost%40devhost.com.br> > > [As partes desta mensagem que não continham texto foram removidas] > > > ------------------------------------------------------------------------ > > No virus found in this incoming message. > Checked by AVG. > Version: 7.5.519 / Virus Database: 269.22.12/1372 - Release Date: 10/04/2008 > 17:36 >