Le arquivo txt

Question

Preciso ler um arquivo texto do fim para o come�o, pelo que vi no Delphi n�o tem nenhuma fun��o que possa mover pro registro anterior.Existe alguma forma de contornar isso ?vlwe...

Bruno Leandro · Answer

voce pode usar o tstringlist e usar o um for de count -1 at� 0...

Joel Rodrigues · Answer

Bem, vejamos, no comando FOR do Delphi, voc� pode substituir o TO por DOWNTO. Por exemplo, seguindo a dica acima, voc� pode carregar o arquivo em um TStringList e ler cada linha da seguinte forma:

for i := Pred(lista.Strings.Count) downto 0 do
//fa�a algo

Boa sorte.

Bruno Leandro · Answer

procedure lerTxtInvertido;var  stringlist: tstringlist;  i : integer;  sLinha: string;begin  stringlist := tstringlist.create;  stringlist.LoadFromFile(C:teste.txt);  for I := stringlist.Count - 1 downto 0 do  begin    sLinha := stringlist;    ShowMessage([Linha:  + inttostr(i) + ]  + sLinha);  end;end;...

Joel Rodrigues · Answer

Isso, isso, isso....

Eduardo Rocha · Answer

valeu galera, perfeito !...

F�rum Le arquivo txt #415676