TWideStrings應該是unicode版的TStringList TStringList->Insert(0,"");運作正常 但是TWideStrings->Insert(0,L"");只會把第一個元素給蓋掉 根本不會把元素向後推 只好自己一個一個往後搬 最後再Insert

TStrings好像都會這樣（尤其在處理空字串的加入時），我用TStringList時也遇到過類似的問題。不知道有沒有大大提供比較好的解法？

引言: TWideStrings應該是unicode版的TStringList TStringList->Insert(0,"");運作正常 但是TWideStrings->Insert(0,L"");只會把第一個元素給蓋掉 根本不會把元素向後推 只好自己一個一個往後搬 最後再Insert

melticemelt你好： class="code"> procedure TWideStrings.Insert(Index: Integer; const S: WideString); var PWStr: ^TWString; { if((Index < 0) or (Index > FWideStringList.Count)) raise Exception.Create(SWideStringOutofBounds); if (Index < FWideStringList.Count) { PWStr := FWideStringList.Items[Index]; if (PWStr<>nil) PWStr.WString := S; <---明顯的只有取代的動作 } else Add(S); } 明顯的並沒有往推的動作，另外TStringList是有的，TStringList在insert等method被呼叫時，最後會有一個叫Changed的function，作整理的動作，所以所有的item會往後搬! TStringList的source就請自查了! 所以結論應該只有自已重寫override那個insert method了!