delphi字符串内多个空格合为一个空格

本文整理自网络，侵删。

 //delphi字符串内多个空格合为一个空格
Function More2OneSpace(aStr: String): String;
Var
  i: Integer;
  AWideStr: WideString;
Begin
  AWideStr := Trim(aStr);
  Result := Copy(AWideStr, 1, 2);
  //目标串的最后一个字符，利用栈来消除多余的空格
  For i := 3 To Length(AWideStr) Do//www.delphitop.com
  Begin
    If (AWideStr[i] <> ' ') Or (RightStr(Result, 1) <> ' ') Then
    Begin
      Result := Result + AWideStr[i];
    End;
  End;
End; 

相关阅读 >>

Delphi 从数组中任取一个

Delphi 关于字符串, 之前没这样用过

Delphi文件操作所涉及的一些函数 附例子

Delphi timer定时器使用

Delphi关于dbgrid和webbrowser的焦点问题

Delphi 小票打印开钱箱 自动切纸指令

Delphi 公历转农历函数

Delphi 提取时间成分

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕？

Delphi 获取指定进程中的～内存数据

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

转载请注明出处：木庄网络博客 » delphi字符串内多个空格合为一个空格