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 textfile utf8编码读写

Delphi写一个简单的多线程的程序

Delphi 从indy9升级到indy10时idtcpserver的变化

Delphi中禁止webbrowser右键的方法

Delphi学习sql语句 - insert、update、delete

Delphi 如何使用程序标识符检查程序是否已安装

Delphi 之前解析串口数据

Delphi 语言字符集

Delphi 删除指定字符串的所有实例

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

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