Delphi XE TStringBuilder

function T_SunnySky_SDK.JoinItems(AParamDic: TDictionary): string;
var
  sb : TStringBuilder;
  key :  TPair;
begin
   if not Assigned(AParamDic)  then
      Result := ''
   else if AParamDic.Count = 0  then
      Result := ''
   else begin
         sb := TStringBuilder.Create;
         try
             for key in AParamDic do
             begin
                 if sb.Length > 0  then
                   sb.Append('&');

                 sb.Append(key.Key);
                 sb.Append('=');
                 sb.Append(HTTPEncode(key.Value));
             end;

             Result := sb.ToString;
         finally
            sb.Free;
         end;
   end;
end;

　Delphi 的 TStringBuilder 可以完美实现Jave ,C#的TStringBuilder功能．  :)