Como saber quantidade de linhas de um arquivo de texto?

Delphi

01/08/2005

Como posso saber a quantidade de linhas de um arquivo de texto através do delphi???


Emir Neto

Emir Neto

Curtidas 0

Respostas

Motta

Motta

01/08/2005

de um loadfromfile em uma Tstrings e veja o count ...

acho que funciona


GOSTEI 0
Emir Neto

Emir Neto

01/08/2005

Tem como detalhar isso???


GOSTEI 0
Rjun

Rjun

01/08/2005

var
  Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo := LoadFromFile(NomeArquivo);
    ShowMessage(´Numero de Linhas: ´ + IntToStr(Arquivo.Count - 1));
  finally
    FreeAndNil(Arquivo);
  end;
end;



GOSTEI 0
Emir Neto

Emir Neto

01/08/2005

var
Arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try

[color=red:fa6fc99ba4]Esta linha indica erro no LoadFromFile, visto que este procedimento precisa de algo antecessor.[/color:fa6fc99ba4]

Arquivo := LoadFromFile(NomeArquivo);



ShowMessage(´Numero de Linhas: ´ + IntToStr(Arquivo.Count - 1));
finally
FreeAndNil(Arquivo);
end;
end;


GOSTEI 0
Rjun

Rjun

01/08/2005

Foi mal. Coloque a sintaxe errada. 

Arquivo.LoadFromFile(NomeArquivo);



GOSTEI 0
POSTAR