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 自带gif控件的动画图片加载和播放

Delphi 获得网页乱码

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi 的异步方法

Delphi stringtobase64、base64tostring两个函数

idhttp使用时内存猛增，如何解决

Delphi ttabcontrol在tabitem添加关闭按钮

Delphi 外壳扩展创建快捷方式和获取快捷方式的目标对象

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

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