Mover o ponteiro de registro em um arquivos txt!!

Question

Alguem sabe como mover o ponteiro de registro em um arquivos txt!!Gostaria de ler as informa��es do arquivo txt do apartir do ultimo registro e voltando at� o primeiro registro....

Joilson_gouveia · Answer

Salve o TXT em uma TStringList e leia a TStringList a partir da �ltima linha, cfe abaixo:

procedure LeTxt;
var
Texto:TStringList;
i:Integer;
Linha:String;
begin
Texto := TStringList.Create;
Texto.LoadFromFile(�ARQUIVO.TXT�);
for i := Texto.Count-1 to 0 do
begin
Linha := Texto.Strings[i];
Memo1.Lines.Add(Linha);
end;
end;

Host · Answer

Mas eu estava procurando algo como se fazia em Pascal, sem a ultiliza��o de componentes, alguem sabe como?Eu n�o lembro!!...

Wbb · Answer

Eu fiz este exemplo h� algum tempo, por�m com TMemo. N�o � bem o que voc� pediu, mas talvez ajude.

Coloque um TMemo e um TButton em seu form. No evento OnClick do bot�o, coloque o c�digo abaixo.

procedure TForm1.Button1Click(Sender: TObject);
    type
        Ponteiro = ^Integer;
    Var
        p: Ponteiro;  //"p" � uma vari�vel do tipo "Ponteiro", que por sua vez, � um ponteiro do tipo Integer
        i: Integer;
begin
memo1.clear;  // Limpa conte�do do componente Memo1
p:= nil;  // Indica��o de ponteiro nulo
if p=nil then
        memo1.lines.add(�Ponteiro nulo !!!�);
    new(p); // Cria uma vari�vel din�mica Integer, com
            //endere�o no ponteiro "p"
    p^:= 100;  // Atribuir o valor 100 � vari�vel Din�mica criada
    memo1.lines.add(�Conte�do de p:=� + IntToStr(p^)); // Exibe 100
    i:= 200;
    p^:= i;
    memo1.lines.add(�Conte�do de p:=� + IntToStr(p^)); // Exibe 200
    i := 231;
    p:= addr(i); // Aponta "p" para o endere�o da vari�vel "i"
    memo1.lines.add(�Conte�do de p:=� + IntToStr(p^)); // Exibe o conte�do do endere�o
                                                       //apontado por "p", que neste
                                                       //caso � o endere�o de "i". O
                                                       //conte�do de "i" � 231.
    p^:= 1000; // INDIRETAMENTE atribui o valor 1000 � vari�vel "i", pois "p"
               //ainda est� apontado para o endere�o de "i".
    memo1.lines.add(�Conte�do de p:=� + IntToStr(i)); // Exibe 1000, que foi
                                                      //atribuido � "p" e repassado
                                                      //para "i".
    p:= nil; //  Indica��o de ponteiro nulo
    Dispose(p);  //  Destroi o ponteiro
    memo1.lines.add(�Ponteiro destruido !!!�);  
end;

At� mais.
wbb

F�rum Mover o ponteiro de registro em um arquivos txt!! #185567