Delphi - AssigFile - Write - Read - Close

Delphi

07/03/2017

Ola
Tenho que fazer uma rotina para gravar uma string em um arquivo já existente com dados.
para gravar fiz o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
Var Arq:TextFile;
begin
   AssignFile( Arq, 'Teste.TXT' );
   Append( Arq );
   Write( Arq, '1234' );
   CloseFile( Arq );
end;


Pra gravar deu certo, agora preciso fazer a leitura
dessa string que foi gravada no final do arquivo.
Ou seja preciso abrir o arquivo,
posicionar o ponteiro no inicio da string e fazer a leitura.
.
Alguém tem alguma dica ou exemplo de como posso
fazer essa leitura direta na posição?
Alberto

Alberto

Curtidas 0

Respostas

Jones Granatyr

Jones Granatyr

07/03/2017

Será que esse artigo ajuda?

[url]https://www.devmedia.com.br/lendo-dados-de-txt-com-delphi/22662[/url]
GOSTEI 0
Alberto

Alberto

07/03/2017

O artigo acima pode até servir, mas desse modo
eu tenho que ler o arquivo inteiro pra chegar na ultima linha,
e depois de chegar na ultima linha, tenho que encontrar a string nela.
.
Eu estava pensando em fazer a leitura diretamente na posicao desejada.
Mais ou menos como a procedure Copy faz.
GOSTEI 0
POSTAR