procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
combobox1.Clear;
s := ''''01'''';
combobox1.Items.AddObject(''''北京'''',TObject(s));
s := ''''02'''';
combobox1.Items.AddObject(''''天津'''',TObject(s));
s := ''''03'''';
combobox1.Items.AddObject(''''上海'''',TObject(s));
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit1.Text := string(combobox1.Items.Objects[combobox1.ItemIndex]);
end;
没有相关教程