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， 不是导致问题的原因，猜想错误。