Ler, apagar e gravar - Arquivo Texto

Question

Ol� gente,algu�m tem algum exemplo de uma rotina para:ler uma �nica linha de um arquivo texto, depois apagar esta linha e gravar nesta mesma linha outro dado, ou seja eu preciso ler a informa��o anter...

Joilson_gouveia · Answer

Minha sugest�o � que vc importe o conte�do do TXT para um memo e use a fun��o abaixo, de substitui��o.
Depois, grave o conte�do do memo de volta no TXT.

094 - Procura e substitui��o de string num campo memo
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;

Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;

F�rum Ler, apagar e gravar - Arquivo Texto #173760