Delphi XE TStringBuilder

function T_SunnySky_SDK.JoinItems(AParamDic: TDictionary<string, string>): string;
var
sb : TStringBuilder;
key : TPair<string,string>;
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功能.  :)

上一篇:第三周linux学习


下一篇:(一)Builder(建造者)模式