delphi 多关键词批量替换

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 如何把字符串覆给数组

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi里参数修饰符const、var、out的作用分别是什么?

apk权限大全 android必懂知识

Delphi 连接dbf数据

Delphi 之 标签组件(tlabel组件)

Delphi检查自身是否被调试

Delphi 2009 之 tstringbuilder 类[5]: chars[] 属性与 copyto 方法

Delphi webbroker standalone 模式下当作一个普通的 webserver 响应静态网页或其它文件的请求

Delphi的tfilestream 内存流

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 多关键词批量替换