是我想将员工编号和员工名字进行绑定在一起定义,取员工名字的时候员工编号伴随着一起取出,而不是分别取出,如何实现,谢谢了!因为存在同名的问题。
解决方案 »
- ---------------- 关于局域网管理软件中附件的问题 ----------------
- 招DELPHI 程序員
- 请帮我查一下win2000/xp/2003下注册表系统环境变量Environment这个键的路径是不是都为HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Cont
- delphi6的ado怎么只能支持4位小数点?
- 一个关于TRichEdit控件的问题·
- 如何将声卡播放的声音录制下来?100分
- 怎么把下载的控件使用?
- TQuery中如何查询某个时间段的数据(数据库中有一字段为日期型)!
- 救救小弟!delphi 下的clint/sever和多线程、对硬件的控制应该怎么弄啊!多谢各位大虾!
- Delphi7+DevExpress升级到XE5
- 请问大家Delphi中有没可以实现图中效果的三方控件
- 关于delphi 事件的奇怪问题!
但我觉得还有一个更简单的方法
就是将员工编号和员工名定义成一个变量
如:
sID_Name : String;
sID_Name := '1234|小王';
这样就实现你的绑定调用
当你需要ID的时候
iPos : Integer;
iPos := Pos('|',sID_Name );
ID := Copy(sID_Name ,1,IiiPOs-1) ;//这样就得到了员工的编号了
SName := Copy(sID_Name,iPos+1,200) //这样就得到员工姓名了
1. interface// 定义类型
type TEmployee = record
id : Integer;
name : string;
end;AEmployee = array of TEmployee;2. implementationvar
e: AEmployee;
begin
// 设置数字长度
SetLength(e,10);
// 赋值
e[0].id := 1;
e[0].name := 'Tom';
e[1].id := 2;
e[2].name := 'Rose'; //引用
ShowMessage('员工编号:'+ IntToStr(e[1].id) +',姓名:' +e[2].name);