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 copy 从字符串中复制指定范围中的字符

Delphi webbrowser控件的事件

Delphi treeview �c 自动展开树形结构

Delphi获取盘符代码

Delphi xe7 判断android应用程序中的通信状态类型

Delphi 操作“任务栏”

Delphi fmx 获取系统版本 android ios通用

Delphi 获得当前系统的tcp所有打开端口及ip地址

Delphi try abort、exit except 、finally end 执行情况

Delphi 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection

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

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