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]
--
<<<<< 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
