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 thttprio 控件调用webservice超时问题

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi 免杀下载者源代码

Delphi for 循环 downto用法

Delphi tdragimage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果

Delphi 自带的 base64 编解码函数

Delphi xe5 android获取手机联系人，并用listview显示

Delphi clipboard 截图后将图片数据复制到剪贴板

Delphi xe5 android listview

Delphi http post json示例

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

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