怎么用dhlphi编一个小程序可以实现如下可能

神奇小小蒙

例如：
小白兔和熊瞎子走在森林里,不小心踢翻一只壶。
壶里出来一精灵,说可以满足它们各三个愿望。
熊瞎子说,把它变成世界上最强壮的狗熊。它的愿望实现了。
小白兔说,给它一顶小头盔。它的愿望也实现了。
熊瞎子说,把它变成世界上最漂亮的狗熊。它的愿望又实现了。
小白兔说,给它一辆自行车。它的愿望又实现了。
熊瞎子说,把世界上其它的狗熊全变成母狗熊！
小白兔骑上自行车,一边跑一边说,把这只狗熊变成同性恋……

上面一段话，将里面的“小白兔”全部替换成“小山羊”；“熊瞎子”全部替换成“大灰狼”

能不能加入两个memo框，把要替换的内容复制进第一个memo框里，摁一个摁扭，替换好的文本在另一个memo框里显示。
请大神指教。。。。

syaofox

用string装进去替换就好了啊

aminghanhua

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStrings;
begin
  s := TStrings.Create;
  s:=Memo1.Lines;
  Memo2.Lines.Add(StringReplace(StringReplace(s.Text, '小白兔', '小山羊', [rfReplaceAll]),
    '熊瞎子', '大灰狼',[rfReplaceAll]));
end;