Delphi中替换字符函数

NolanDing

于 2023-04-15 15:22:35 发布

阅读量988

点赞数

分类专栏： delphi常用函数文章标签：字符串

本文链接：https://blog.youkuaiyun.com/gust2013/article/details/130170581

版权

delphi常用函数专栏收录该内容

38 篇文章

订阅专栏

应用场景

把一个字符串中的某一个字符全部替换成另一个字符

函数代码

function ChangeChar(const AString: string; ASearch, AReplace: Char): string;
var
  I: integer; // loops thru all chars of string
begin
  Result := AString;
  if Result = '' then
    Exit;
  for I := 1 to Length(Result) do
    if Result[I] = ASearch then
      Result[I] := AReplace;
end;

测试

Caption:= ChangeChar('C++', '+','-')//返回C--
···