Fórum substituir um valor dentro de um string #215517

procedure SubsCarac(Proc: Char; Por: Char; var Str: string);
var
  n: integer;
begin
  for n:=1 to Length(Str) do
    if Str[n] = Proc then Str[n] := Por;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Txt: string;
begin
  Txt := Edit1.Text;
  SubsCarac(´.´, ´*´, Txt);
  SubsCarac(´,´, ´.´, Txt);
  SubsCarac(´*´, ´,´, Txt);
  Edit2.Text := Txt;
end;