首先，要澄清的是，本範例完全照抄Delphi 2009 之 TStringBuilder 类[1]: Create
如有雷同之處，不要意外

首先，先照抄以下程式碼
[code cpp]
TStringBuilder *sb = new TStringBuilder();
sb->Append("Embarcadero");
sb->Append(" CodeGear");
sb->Append(" C Builder");
sb->Append(" 2009");

ShowMessage(sb->ToString()); //出現「Embarcadero CodeGear C Builder 2009」
sb->Free();
[/code]
編譯：正常
執行結果：


哇咧咧…怎麼跟Delphi 2009跑出來的差這麼多？
於是乎找了一下原式
[code cpp]
TStringBuilder* __fastcall Append(const bool Value)/* overload */;
TStringBuilder* __fastcall Append(const System::Byte Value)/* overload */;
TStringBuilder* __fastcall Append(const System::WideChar Value)/* overload */;
TStringBuilder* __fastcall Append(const System::Currency Value)/* overload */;
TStringBuilder* __fastcall Append(const double Value)/* overload */;
TStringBuilder* __fastcall Append(const short Value)/* overload */;
TStringBuilder* __fastcall Append(const int Value)/* overload */;
TStringBuilder* __fastcall Append(const __int64 Value)/* overload */;
TStringBuilder* __fastcall Append(const System::TObject* Value)/* overload */;
TStringBuilder* __fastcall Append(const System::ShortInt Value)/* overload */;
TStringBuilder* __fastcall Append(const float Value)/* overload */;
TStringBuilder* __fastcall Append(const System::UnicodeString Value)/* overload */;
TStringBuilder* __fastcall Append(const unsigned __int64 Value)/* overload */;
TStringBuilder* __fastcall Append(const TCharArray Value)/* overload */;
TStringBuilder* __fastcall Append(const System::Word Value)/* overload */;
TStringBuilder* __fastcall Append(const unsigned Value)/* overload */;
TStringBuilder* __fastcall Append(const System::WideChar Value, int RepeatCount)/* overload */;
TStringBuilder* __fastcall Append(const TCharArray Value, int StartIndex, int CharCount)/* overload */;
TStringBuilder* __fastcall Append(const System::UnicodeString Value, int StartIndex, int Count)/* overload */;
[/code]
沒有「AnsiString」的重名異式，難道是因為這樣嗎？
於是改了以上內容*
[code cpp]
TStringBuilder *sb = new TStringBuilder();
sb->Append(String("Embarcadero"));
sb->Append(String(" CodeGear"));
sb->Append(String(" C Builder"));
sb->Append(String(" 2009"));

ShowMessage(sb->ToString()); //Embarcadero CodeGear Delphi 2009
sb->Free();
[/code]
這樣，正確的結果就會出爐了
結果還請看倌親自體驗嚕！

*註
感謝 Carey大大 的協助，才會有正確結果的程式碼產生。

編輯記錄