//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;