频道分类

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

作者:admin 来源: 日期:2020/3/5 20:57:27 人气: 标签:

 
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]); //非常简单