delphi中ComboBox的DataValue值

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件

Delphi 几个实用的html解析函数

Delphi打开关闭光驱

Delphi 写dll注入器

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi 判断驱动器盘符是否有效

Delphi的常用条件编译指令

Delphi使用tclientdataset�r不携带midas.dll的方法

Delphi中for in 语法应用实例

Delphi setprivilege 提权代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中ComboBox的DataValue值