Regravacao de arquivo texto

Delphi

22/10/2013

Boa noite, alguém poderia me dizer se é possível alterar uma linha de um arquivo texto e regravar o mesmo !
Estou usando o tipo TextFile e pelo que li se abro o arquivo com rewrite ele apaga o conteúdo !
Grato

DSW
_osw

_osw

Curtidas 0

Respostas

Ricardo Rodrigues

Ricardo Rodrigues

22/10/2013

vê se ajuda.

https://www.devmedia.com.br/forum/como-altero-um-arquivo-txt-mudar-uma-linha-existente/256703


Eu particularmente utilizo assim


procedure TForm1.Button1Click(Sender: TObject);
var
   Arquivo: TextFile; Texto, line : string;
begin
   Memo1.Clear;
   AssignFile(Arquivo, 'C:\Sintegra.Txt');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
        ReadLn(Arquivo, Line);
        Texto := Line;
        if pos('75',texto) > 0 then
           Memo1.Lines.Append(line);
      end;
   CloseFile(Arquivo);

end;
GOSTEI 0
_osw

_osw

22/10/2013

Obrigado Ricardo !
Fiz mais ou menos isso, eu vou guardando as linhas em um stringlist, depois abro o arquivo com rewrite (nesse ponto, pelo menos no meu caso, o arquivo é 'esvaziado', aí eu transfiro os dados do stringlist de volta para o arquivo !

GOSTEI 0
POSTAR