delphi 基础学习指定字符替换其他字符

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
len,i:integer;
begin
     str := Memo1.Text;
      if str <> '' then
      begin
        len := Length(str);
        for i := 1 to len do
        begin
          if str[i] in ['A', 'B'] then str[i] := '*';    // 要替换的字符
          memo2.text:=str;
        end;
      end;


end;


另一个方法：
str :=  StringReplace(str, 'A', '*', [rfReplaceAll]); 
str :=  StringReplace(str, 'B', '*', [rfReplaceAll]); //非常简单
 

相关阅读 >>

Delphi sysutils.comparetext的注释

Delphi 获取计算机名和用户名

Delphi dos批命令打开应用程序同时关闭dos窗口本身

Delphi中怎么判断一个文件夹是否为空

Delphi 如何按下esc键退出程序

Delphi 的内存操作函数(1): 给字符指针分配内存

Delphi deletefiles 删除目录下多个文件

Delphi 获取鼠标坐标

Delphi利用webbrowser登陆qq群文档

Delphi tdbgrideh导出excel

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

转载请注明出处：木庄网络博客 » delphi 基础学习指定字符替换其他字符