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 随机函数单元urandomutils

Delphi xe5 android 获取网络状态

vclzip控件的简单使用

Delphi tstringdynarray 使用,分割字符串

Delphi取得桌面工作区域的大小

Delphi 如何将多个文件复制到一个

Delphi 测试 tstreamwriter、tstreamreader

Delphi 十进制十六进制转换

Delphi shellexecute openurl 的跨平台实现

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

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