Vc deve estar bem usando TFileStream (S.LoadFromFile). A dica do Jackson é o
que eu uso e sempre funciona!
Exemplo:
function GetTextFileRowCount(const TextFileName: string): int64;
begin
Result := 0;
if FileExists(TextFileName) then
with TStringList.Create do
try
LoadFromFile(TextFileName);
Result := Count; // sempre me retornou a qtde. de linhas certa!
finally
Free;
end;
end;
Sds.
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 14 Apr 2008 17:31:11 -0300
Subject: Re: [delphi-br] Função que retorna número de linhas de TXT
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]
_________________________________________________________________
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
