TStringList实例调用AddStrings 跟踪
创建了一个TStringList的实例并调用AddStrings，企图将ListBox1的所有Items加入sList实例（sList.AddStrings(ListBox1.Items)）。 开始以为VCL 处理有瑕疵，后发现环节都正确。
?
?
分析过程如下:
?
1.? 观察Classes单元的TStrings.AddStrings(Strings: TStrings)的方法，其中有一句：AddObject(Strings[I], Strings.Objects[I]);
?
2.? 走到了从源Strings的Get、GetObject方法
?
3.? 因为ListBox的Items实例是这样创建的：? FItems := TListBoxStrings.Create; 所以 源Strings的GetObject方法走到了这里：TListBoxStrings.GetObject
?
4. StdCtrls单元中，关于TListBoxStrings类两个重要方法如下：
?
function TListBoxStrings.GetObject(Index: Integer): TObject;
...
??? Result := TObject(ListBox.GetItemData(Index));
??? if Longint(Result) = LB_ERR then Error(SListIndexError, Index);
?
?
function TListBoxStrings.Add(const S: string): Integer;
...
? Result := SendMessage(ListBox.Handle, LB_ADDSTRING, 0, Longint(PChar(S)));
?
?
5.? 可以看出TListBoxStrings继承自TStrings，但是存储String、Object等均是根据 ListBox的句柄调用了Windows平台提供的LB_ADDSTRING、LB_GETITEMDATA 等消息
?
6.? 因TListBoxStrings.GetObject 的思路是：如果返回值是 LB_ERR (-1 )就抛出异常
?
7.? 应用中ListBox是这样：ListBox1.Items.AddStrings(sList) 载入的，在VCL的曲折实现中依次经过 TStrings.AddObject? -> TStrings.PutObject -> TListBoxStrings.PutObject? -> TCustomListBox.SetItemData -> Windows 的SendMessage LB_SETITEMDATA，并且nil 作为lParam 即Data传入给 ListBox的实例
?
8.? nil 空指针值为0， LB_ERR值为 －1， 不是导致问题的原因，猜想错误。
?
?
?
?
?
