频道分类

delphi 多关键词批量替换

作者:admin 来源: 日期:2020/3/21 14:35:36 人气: 标签:

 
procedure TForm2.Button1Click(Sender: TObject);
var
  I: Integer;
  str:string;
begin
str:=Memo2.Text;  //文本内容

for I := 0 to Memo1.Lines.Count-1 do  //遍历关键词
begin
str:=StringReplace (str, Memo1.Lines.Strings[i],'', [rfReplaceAll]); //替换  
end;

Memo2.Text:=STR;
end;