delphi RemoveWhiteSpaces 过滤字符串所有空格


本文整理自网络,侵删。

 
function RemoveWhiteSpaces(const S: String): String;
var
  I: Integer;
  ch: Char;
begin
  result := '';
  for I:=1 to Length(S) do
  begin
    ch := S[I];
    if ch = ' ' then begin end
    else if ch = #9 then begin end
    else
      result := result + ch;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(RemoveWhiteSpaces(' abc1 23 @16 3.c om '));     //结果 abc123@163.com
end;

相关阅读 >>

Delphi获取优盘的id

Delphi form生成时的事件次序

Delphi目录操作示例

Delphi chart组件,chart控件用法

Delphi xe2 - 点点滴滴

Delphi获取内存信息

Delphi 加壳原理与简单实现加壳

Delphi监测按键输入

Delphi 创建win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi copyfileprogressbar 拷贝文件显示进度条

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...