怎么用dhlphi编一个小程序可以实现如下可能
例如：小白兔和熊瞎子走在森林里,不小心踢翻一只壶。
壶里出来一精灵,说可以满足它们各三个愿望。
熊瞎子说,把它变成世界上最强壮的狗熊。它的愿望实现了。
小白兔说,给它一顶小头盔。它的愿望也实现了。
熊瞎子说,把它变成世界上最漂亮的狗熊。它的愿望又实现了。
小白兔说,给它一辆自行车。它的愿望又实现了。
熊瞎子说,把世界上其它的狗熊全变成母狗熊！
小白兔骑上自行车,一边跑一边说,把这只狗熊变成同性恋……
上面一段话，将里面的“小白兔”全部替换成“小山羊”；“熊瞎子”全部替换成“大灰狼”
能不能加入两个memo框，把要替换的内容复制进第一个memo框里，摁一个摁扭，替换好的文本在另一个memo框里显示。
请大神指教。。。。 用string装进去替换就好了啊 procedure TForm1.Button1Click(Sender: TObject);
var
s: TStrings;
begin
s := TStrings.Create;
s:=Memo1.Lines;
Memo2.Lines.Add(StringReplace(StringReplace(s.Text, '小白兔', '小山羊', ),
'熊瞎子', '大灰狼',));
end;
页:
[1]