频道分类

delphi 删除字符串中指定字符

作者:admin 来源: 日期:2020/4/11 23:36:47 人气: 标签:

 
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 Repeat Until 随机插入下一篇:没有资料