C>Про сложность кода и явную костыльность С++ (обратите внимание как пришлось извратиться, чтоб сконвертировать число в wstring там, где StringBuilder делает конвертацию сам и не парит нам мозги) и говорить не стоит — вся красота перед глазами.

ws += L"Карл у Клары украл кораллы в количестве ";
ws += _itow(i,buffer,10);
ws += L" штук\n";

C>Но самое замечательное, что С++ вариант банально крашился, если Count = 10000 (и возможно меньше... не проверял между 5к и 10к).

public override string ToString()
{
    string stringValue = this.m_StringValue;
    IntPtr currentThread = this.m_currentThread;
    if ((currentThread != IntPtr.Zero) && (currentThread != InternalGetCurrentThread()))
    {
        return string.InternalCopy(stringValue);
    }
    if ((2 * stringValue.Length) < stringValue.ArrayLength)
    {
        return string.InternalCopy(stringValue);
    }
    stringValue.ClearPostNullChar();
    this.m_currentThread = IntPtr.Zero;
    return stringValue;
}

public string ToString(int startIndex, int length)
{
    return this.m_StringValue.Substring(startIndex, length);
}

Var

 sw    : TStopwatch; // QueryPerformanceCounter
 s     : String; // это юникод
 sb    : TStringBuilder;
 Index : Integer;

Begin

 sw.Start;

 For Index := 1 To 10000000 Do
  s := s + 'c1';

 sw.Stop;

 WriteLn('string.append: elapsed ', sw.ElapsedTime, ' (', Length(s), ')');

 sw.Start;
// s := StringReplace(s, '1', '2', [rfReplaceAll]);
 sw.Stop;

 WriteLn('string.replace: elapsed ', sw.ElapsedTime, ' (', Length(s), ')');

 sw.Start;

 Index := 10000;
 While Index < 100000 Do
  Begin

   Insert('7', s, Index);
   Inc(Index, 1000);

  End;

 sw.Stop;

 WriteLn('string.insert: elapsed ', sw.ElapsedTime, ' (', Length(s), ')');

 WriteLn('-----------');

 sb := TStringBuilder.Create;
 Try

  sw.Start;

  For Index := 1 To 10000000 Do
   sb.Append('c1');

  sw.Stop;

  WriteLn('sb.append: elapsed ', sw.ElapsedTime, ' (', sb.Length, ')');

  sw.Start;
  sb.Replace('1', '2');
  sw.Stop;

  WriteLn('sb.replace: elapsed ', sw.ElapsedTime, ' (', sb.Length, ')');

  sw.Start;

  Index := 10000;
  While Index < 100000 Do
   Begin

    sb.Insert(Index, '7');
    Inc(Index, 1000);

   End;

  sw.Stop;

  WriteLn('sb.insert: elapsed ', sw.ElapsedTime, ' (', sb.Length, ')');

 Finally

  sb.Free;

 End;

End.

S>public override string ToString()
S>{
S>    string stringValue = this.m_StringValue;
S>    IntPtr currentThread = this.m_currentThread;
S>    if ((currentThread != IntPtr.Zero) && (currentThread != InternalGetCurrentThread()))
S>    {
S>        return string.InternalCopy(stringValue);
S>    }
S>    if ((2 * stringValue.Length) < stringValue.ArrayLength)
S>    {
S>        return string.InternalCopy(stringValue);
S>    }
S>    stringValue.ClearPostNullChar();
S>    this.m_currentThread = IntPtr.Zero;
S>    return stringValue;
S>}
S>

internal unsafe void ClearPostNullChar()
{
    int index = this.Length + 1;
    if (index < this.m_arrayLength)
    {
        fixed (char* chRef = &this.m_firstChar)
        {
            chRef[index] = '\0';
        }
    }
}

S>public string ToString(int startIndex, int length)
S>{
S>    return this.m_StringValue.Substring(startIndex, length);
S>}
S>