Antes de começar o looping atribuindo a X o valor 1 como está na rotina abaixo,
já resolve esse problema.
----- Original Message -----
From: Alex - Yahoo
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 17, 2006 4:41 PM
Subject: Re: [delphi-br] Qtde linha arquivo txt
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]
__________ Informação do NOD32 IMON 1.1664 (20060717) __________
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
