delphi 删除字符串中指定字符


本文整理自网络,侵删。

 
Function DelChar(Ch : Char; S : String) : String;
 Var
  I : Integer;
begin
 I := 1;
 While I <= Length(S) do
  begin
   If S[I] = CH then
    Delete(S, I, 1) else I := I + 1;
  end;
 result := S;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=DelChar('c','abcd');
end;

相关阅读 >>

Delphi整理五(枚举、子界、集合)

Delphi指针

Delphi 递归算法遍历文件

winapi 字符及字符串函数(10): lstrcpy - 复制字符串

Delphi xe7android应用启用蓝牙

Delphi formactivate与formshow事件有什么区别

Delphi tstopwatch 计时

Delphi xe安装后配置android的sdk的方法

Delphi 判断timage是否为空及注意事项

Delphi tscrollbar 用于滚动窗口、组件内容

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...