procedure TForm1.Button1Click(Sender: TObject);
b,c: integer; //循环用
begin
for c:=0 to Memo3.Lines.Count-1 do//循环得到memo3中的一行
for b:=0 to Memo2.Lines.Count-1 do//循环得到memo2中的一行
begin
memo1.Text:= stringreplace(memo1.Text,Memo2.Lines.Strings[b],Memo3.Lines.Strings[c],[rfreplaceall]);//用memo2中的一行来搜索memo1中相同的文字，用memo3中的一行代替该段文字
end;
end;
这样memo1中的全部行会被替换成memo3的第一行
真心求各位大神解答，很急

淘宝欢迎您。