Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá,
nao tenho grandes conhecimentos em delphi, gostaria de uma ajuda:
o programa le um arquivo txt e insere seus dados em um banco
para isto preciso percorrer todas as linhas do txt
AssignFile (arq, vCaminhoCompletoArq);
Reset (arq);
ReadLn ( arq, linha );
vLinha := TStringList.Create;
vArquivoParaContar.LoadFromFile(vCaminhoCompletoArq);
pbArquivo.Position:=0;
pbArquivo.Min:=0;
pbArquivo.Max:=vArquivoParaContar.Count;
lblQtdTotalLinhas.Caption:=inttostr(vArquivoParaContar.Count);
while not Eof ( arq ) do
begin
ShowMessage(linha);
end
o problema é que desa maneira ele nao mostra a ultima linha do arquivo, se arquivo tem 7 mostra ate a 6
alguem tem alguma sugestao como posso resolver isso?
vlw ae
Carregando comentários...