Retornar a quantidade de linha de um TXT ???

Delphi

17/02/2004

Pessoal estou precisando retornar a quantidade de linhas de um arquivo TXT..Tem jeito..
Pq estou fazendo a importacao de um TXt para o BD e queria colocar uma barra de progresso..

Obrigado pela atenção

Valeu


Michel

Michel

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

17/02/2004

http://delphiforum.icft.com.br/forum/viewtopic.php?t=36175&highlight=


da proxima vez dá uma pesquisada antes ai.....

Falow,
Lucas!


GOSTEI 0
Adilsond

Adilsond

17/02/2004

function GetNumLinhasArq(const FileTextName: String): Integer;



function GetNumLinhasArq(const FileTextName: String): Integer;
// Retorna o número de linhas que um arquivo possui
var
  F: TextFile;
  CountLine: Integer;
begin
  CountLine := 0;
  AssignFile(F, FileTextName);
  Reset(F);
  try
    while not EOF(F) do
      begin
        ReadLn(F);
        Inc(CountLine);
      end;
  finally
    CloseFile(F);
  end;
  Result := CountLine;
end;



GOSTEI 0
Michel

Michel

17/02/2004

Valeu galera MUITO OBRIGADO !!


GOSTEI 0
Magicbyte

Magicbyte

17/02/2004

falae pessoALL.

uma vez vi um lance. vc pega um memo, dá um load from file pra ele do TXT e depois a qtd de linhas. prontinho hehehehehe

falous!


GOSTEI 0
POSTAR