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 stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值

Delphi隐藏桌面图片和显示桌面图标

Delphi android权限

Delphi 在桌面中嵌入窗体

Delphi dbgrid中实现copy、paste功能

Delphi webbrowser1 保存文档为 .mht

Delphi Delphi copy,pos,delete win api 版

Delphi 实现窗体倒计时进度条显示

Delphi 根据磁盘盘符获取简单的硬盘编号

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

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