pFields=^TFields;//定义一个记录集
TFields=Record
ID,CName,EName:String;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
pF:pFields;
begin
New(pF);
pF.ID:='001';
pF.CName:='中国';
pF.EName:='北京';
cxComboBox1.Properties.Items.AddObject(pF.CName,TObject(pF));
New(pF);
pF.ID:='002';
pF.CName:='日本';
pF.EName:='东京';
cxComboBox1.Properties.Items.AddObject(pF.CName,TObject(pF));
end;
procedure TForm1.cxComboBox1PropertiesChange(Sender: TObject);
begin
if cxComboBox1.ItemIndex <0 then Exit;
Edt1.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).EName;
Edt2.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).ID;
Edt3.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).CName;
end;