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 获取大于2g的物理内存大小

Delphi 获得网页乱码

Delphi 超精简无卡顿调用dos命令输出结果

Delphi 实现产品编号批量生成简单算法

Delphi 判断文件存在的一个api函数

Delphi 开发安卓时判断进入非活动

Delphi用代码实现注册ocx和dll

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi fmx jpg 保存数据库 从数据库读取

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

转载请注明出处：木庄网络博客 » delphi 删除字符串中指定字符