procedure TForm1.Button1Click(Sender: TObject); var arq: TextFile; numlinhas: integer; linha: String; begin numlinhas:=1; AssignFile ( arq, 'C:\eu.txt' );//seu arquivo txt Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin numlinhas:=numlinhas+1; ReadLn ( arq, linha ); end; CloseFile ( arq ); label1.Caption:=inttostr(numlinhas); end;
Emerson Cassio ----- Original Message ----- From: Luis To: delphi-Br Sent: Monday, July 17, 2006 1:29 PM Subject: [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/ __________ 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] -- <<<<< 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