After some tweaking TStringBuilder in FastCode is now 2x faster than the stock Builder in SysUtils.

After some tweaking TStringBuilder in FastCode is now 2x faster than the stock Builder in SysUtils.

See: https://github.com/JBontes/FastCode/blob/master/FastStringBuilder.pas

Here's the timing code:

procedure TForm76.Button1Click(Sender: TObject);
var
B: FastStringBuilder.TStringBuilder;
Ticks: Currency;
S: string;
begin
S:= 'hallo';
B:= FastStringBuilder.TStringBuilder.Create;
Ticks:= THiResStopWatch.Sample(procedure() var i: integer; begin
B.Clear;
for i:= 0 to Runs do begin
B.Append(S);
end;
end,100);
Button1.Caption:= Format('%m',[Ticks]) + ' Ticks, ';
end;

procedure TForm76.Button2Click(Sender: TObject);
var
B: System.SysUtils.TStringBuilder;
Ticks: Currency;
S: string;
begin
S:= 'hallo';
B:= System.SysUtils.TStringBuilder.Create;
Ticks:= THiResStopWatch.Sample(procedure var i: integer; begin
B.Clear;
for i:= 0 to Runs do begin
B.Append(S);
end;
end,100);
Button2.Caption:= Format('%m',[Ticks]) + ' Ticks, ';
end;
https://github.com/JBontes/FastCode/blob/master/FastStringBuilder.pas