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根据进程pid等待进程结束或者结束进程

Delphi压缩库 zlibex 介绍

Delphi修改资源文件的代码

Delphi 去掉警告

Delphi getcomputername() getusername() 获取本机当前用户名

Delphi winapi: gettopwindow - 获取指定窗口的子窗口中最顶层的窗口句柄

Delphi winsock远程唤醒计算机的函数

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi 调用dll文件中的form

Delphi 数据类型列表

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

转载请注明出处：木庄网络博客 » delphi RemoveWhiteSpaces 过滤字符串所有空格