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: delphi-br@yahoogrupos.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.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 ---------------------------------------------------------- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]