关于将两个变量保存到一起

Question

是我想将员工编号和员工名字进行绑定在一起定义，取员工名字的时候员工编号伴随着一起取出，而不是分别取出，如何实现，谢谢了！因为存在同名的问题。

Answer 1

数组是一个方法
但我觉得还有一个更简单的方法
就是将员工编号和员工名定义成一个变量
如:
  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) //这样就得到员工姓名了

Answer 2

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);