Memo - substituicao de strings

Top  Previous  Next

// Procura e substituição de string num campo memo

 

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;

 

// Utilize a função ssim:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  FindReplace(Edit1.Text,Edit2.Text, Memo1);

end;