Fórum Delphi - AssigFile - Write - Read - Close #576615
07/03/2017
0
Ola
Tenho que fazer uma rotina para gravar uma string em um arquivo já existente com dados.
para gravar fiz o seguinte:
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?
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
Curtir tópico
+ 0
Responder
Posts
07/03/2017
Jones Granatyr
Será que esse artigo ajuda?
[url]https://www.devmedia.com.br/lendo-dados-de-txt-com-delphi/22662[/url]
[url]https://www.devmedia.com.br/lendo-dados-de-txt-com-delphi/22662[/url]
Responder
Gostei + 0
07/03/2017
Alberto
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.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)