* Added Delphi-compatible overload for ToString with UpdateCapacity argument

rtl/objpas/sysutils/syssb.inc

@@ -700,6 +700,19 @@ begin
     end;
 end;
 
+{$IFDEF UNICODERTL}
+function TGenericStringBuilder.ToString(UpdateCapacity: Boolean): RTLString;
+{$ELSE}
+function TGenericStringBuilder.ToString(UpdateCapacity: Boolean): SBString;
+{$ENDIF}
+
+begin
+  if (Length<>Capacity) and UpdateCapacity then
+    SetCapacity(Length);
+  Result:=ToString;
+end;
+
+
 procedure TGenericStringBuilder.DoReplace(Index: Integer; const Old, New: SBString);
 
 var

rtl/objpas/sysutils/syssbh.inc

@@ -115,11 +115,12 @@
     Function Replace(const OldValue, NewValue: SBRawString; StartIndex: Integer; Count: Integer): TGenericStringBuilder;
 {$IFDEF UNICODERTL}
     Function ToString: RTLString; override;
+    function ToString(UpdateCapacity: Boolean): RTLString; overload;
 {$ELSE}    
     Function ToString: SBString; {$IFNDEF SBUNICODE} override; {$ELSE}  reintroduce; {$ENDIF}
+    function ToString(UpdateCapacity: Boolean): SBString; overload;
 {$ENDIF}
     Function ToString(aStartIndex: Integer; aLength: Integer): SBString; reintroduce;
-
     property Chars[index: Integer]: SBChar read GetC write SetC; default;
     property Length: Integer read GetLength write SetLength;
     property Capacity: Integer read GetCapacity write SetCapacity;