很简单的问题

Question

ADOCommand1.CommandText := 'select lt_id, lt_type from lt_chat_type';
ADODataSet1.Recordset := ADOCommand1.Execute;
while not ADODataSet1.Recordset.EOF do
begin
pF.CNAME := ADODataSet1.FieldByName( 'lt_id' ).AsString;
pF.EName := ADODataSet1.FieldByName( 'lt_type' ).AsString;
RoomType.Items.AddObject(pF.EName,TObject(pF));
ADODataSet1.Recordset.MoveNext;
end;数据库表里有三个不同值，为什么我输出的都是同一个值？