Eu tentei fazer dessa forma uma vez e ele não pegava a ultima linha do txt.
Eu tinha que criar uma linha em branco depois da ultima linha do arquivo. Alguem sabe como resolver de forma diferenti? Alex ----- Original Message ----- From: Francisco Carlos de Andrade To: delphi-br@yahoogrupos.com.br Sent: Monday, July 17, 2006 3:12 PM Subject: Res: [delphi-br] Qtde linha arquivo txt Var arq : TextFile; Linha : String; x : Integer; Begin AssignFile(arq,'nome_do_arquivo.txt'); Reset(arq); ReadLn(arq,Linha); x:=1; While not Eof(arq) do Begin x:=x+1 ..................rotinas ReadLn(arq,Linha); end; closefile(arq); -------Mensagem original------- De: Luis Data: 17/07/2006 14:28:08 Para: delphi-Br Assunto: [delphi-br] Qtde linha arquivo txt galera como faço para pegar a Qtde linhas arquivo texto? tenho um arquivo para importar com varias linhas e gostaria de saber a quantidade de linhas que contem neste arquivo texto? -- **************************** Grato pelo atenção Luís _______________________________________________________ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos __________ Informação do NOD32 IMON 1.1663 (20060716) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html