TComboBox AddObject Integer 썸네일형 리스트형 TComboBox/TDBComboBox.AddObject Integer, String, Object 1-1. to store the integer values:with qryGroups do begin First; while not Eof do begin cbGroups.Items.AddObject(FieldByName('Name').AsString, TObject(FieldByName('ID').AsInteger)); Next; end; end;1-2. to read the integer value from selected item:strID := LongInt(cbGroups.Items.Objects[cbGroups.ItemIndex]); 2-1. to store the string values:with qryGroups do begin First; while not Eof do begin cbGr.. 이전 1 다음