Ler Txt

[Guest - ANNELISE -]

BOM DIA GALERA..

COMO FAÇO PRA COMEÇAR A LER UM TXT DE BAIXO PARA CIMA..OU SEJA DA ULTIMA LINHA PARA A PRIMEIRA.

BRIGADIM

BJO

[Felipee]

Fala amigo!

Ou você grava o arquivo já neste sentido (de baixo para cima) ou le o arquivo e joga num memo.

Dentro do memo você le de baixo para cima.

Pesquise aqui no furm sobre memo.

Abras e sucesso!

Felipee.

[Guest ANNLISE]

e como faco pra gravar de traz pra frente?

[Progr'amador]

COMO FAÇO PRA COMEÇAR A LER UM TXT DE BAIXO PARA CIMA..OU SEJA DA ULTIMA LINHA PARA A PRIMEIRA.

Olá,

Use array pra receber os valores do arquivo e depois passe para um memo,

assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  txt : array[1..1000] of String;
  f : TextFile;
  linha : String;
  i, x, max : Integer;
begin
  AssignFile(f,'C:\ARQUIVO.txt');
  Reset(f);
  max := 0;
  while not eof(f) do begin
    max := max + 1;
    Readln(f,linha);
    txt[max] := linha;
  end;
  Closefile(f);
  Memo1.Clear;
  x := 0;
  for i := 1 to max do begin
     if i = 1 then
        Memo1.Lines.Add(txt[max]);
     if i = max then
        Memo1.Lines.Add(txt[1]);
     if (i > 1) and (i < max) then
        Memo1.Lines.Add(txt[max-x]);
     x := x + 1;
  end;
end;

Abs. Progr'amador.