2003年最后一题：怎么实现这样的代码输入

Question

我见过很多软件，他们在输入代码的时候，比如民族，数据字典中定义了代码的意思，在EDIT中输入的时候，直接输入代码，当焦点离开这个EDIT时，里面自动显示汉字意思，下一次再进入的时候，又显示成了代码，
在保存数据的时候又保存的是代码。
各位是怎样实现的呢？

Answer 1

比如 Edit1 你用tag属性记录他在结构数组中的位置
OnExit  时得到名称显示
OnEnter 时得到代码显示

Answer 2

to  PowPro(浪侠):
这样的话,保存数据咋个办哦
好麻烦的

Answer 3

上网上搜索一下，好象有你说的功能的控件
你静下来在TEdit的基础上扩展成一个新控件也不是很费事的，思路可参照
zsy_good(只要坚定不移的走下去，那一定会成功)给的思路你在新控件中加一个代码属性和一个显示属性
 FCode : String;
 FDisp : String;
 在OnExit时， .Text := FDisp;
 在OnEnter时，.Text := FCode;

Answer 4

失去焦点的时候，进行查询，然后把结果写在Edit里就行了阿

Answer 5

应该是在焦点控制上编写代码吧，这有数据查询呢，光增加属性怎么搞呢，定义一个变量，查询结果保存并显示，然后在OnChange事件中编写代码，当改变了后才查询，这样效率可以高一点吧，呵呵，没试过：）

Answer 6

和數據庫組件結合的話，把IP組件的的源代碼改寫一下就可以實現。實現方法主要是在doexit,doenter兩個事件裏處理

Answer 7

其實自己寫也行，道理很簡單。在tfield的OnSetText裏處理更新數據的。

Answer 8

有这么多人关心,现在已经是2004年了,结果我的问题现在还没解决。
上面有很多种方法，我想得到一种最好的方案
总结上面的方法，基本上不能实现在数据导航的时候EDIT中也随之改变各位新年好！！！