三年了，一直都没有弄清楚是什么意思，望各同仁给予一个通俗的答案！ ( 积分: 20 )

procedure TrpDSDM.InitDataSourceList(Strings: TStrings;
const ABJ: Integer);
const
FmtSQL = 'SELECT ID, MC, SQL FROM table WHERE BJ=%d ORDER BY ID';
begin
with Dataset, Strings do
begin
BeginUpdate;
try
Clear; //Strings.clear
SQL.Text := Format(FmtSQL, [ABJ]); //DataSourceFQ.sql.text
Open;
First;
while not Eof do
begin
AddObject(DatasetFQMC.AsString, TObject(DataSourceFQID.AsInteger));
Next; //将数据集中的数据加载到Tstring中
end;
finally
EndUpdate;
end;
end;
end;
AddObject(DataSetFQMC.AsString, TObject(DatasetFQID.AsInteger));是什么意思？以及TObject(DatasetFQID.AsInteger)是什么意思？
将其加到TStrings中怎样排列的？

AddObject 是Strings的一个方法
Call AddObject to add a string and its associated object to the list. AddObject returns the index of the new string and object.

我用Addobject方法做了一个实列，当时我现要取值，请问怎么取？
procedure TForm1.ComboBox1Enter(Sender: TObject);
const a=1;b=2;
begin
combobox1.Clear;
ComboBox1.Items.AddObject('客户IDA',TObject(a));
ComboBox1.Items.AddObject('客户IDB',TObject(b));
end;
现在我做到当Combobox中的值发生OnChange事件时,取items对应的Tobject值,
如：当我下拉选怿 '客户IDA'时将其对应的 'a'值显示到Edit1.text中，以此类推！

edit1.Text :=inttostr(integer(combobox1.Items.Objects[combobox1.ItemIndex]));

谢谢，我终于明白Addobject方法的用意了！谢谢各位的参予！现在散分！