[转]Delphi下拉列表框

有表：Id,Name想在下拉列表框中显示Name,选择后可获得Id值，下拉列表框动态生成，个数不定。

//载入procedure TForm1.FormCreate(Sender: TObject);varPID: PInteger;i: integer;beginwith ComboBox1 dofor i := 0 to 20 dobeginnew(PID);PID^ := i;items.AddObject('item' + inttostr(i), TObject(PID));end;end;//使用procedure TForm1.ComboBox1Change(Sender: TObject);varID: integer;beginID := PInteger(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^;showmessage(ComboBox1.Items[ComboBox1.ItemIndex] + #13#10 +inttostr(ID));end;//删除procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);vari: integer;beginfor i := 0 to ComboBox1.Items.Count - 1 doDispose(ComboBox1.Items.Objects[i]);ComboBox1.Clear;end;