求additem用法

Question

现有一组数据需要在 listbox 显示，然后读取 一一对应的 数据~~~~~~
cwb 财务部
jdc 教导处
bws 保卫室
我现在只能把一组数据在 Listbox 里面 显示，其他的 如何 一一对应呢？？？下面是我写的程序，问题在那里呢？？？
------------------------------------------------------------------
implementationtype
  PMyStruct=^TMyStruct;
  TMyStruct=record
  strInfo:String;
end;{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
begin
  edt1.Text := PMyStruct(lst1.Items.Objects[lst1.ItemIndex])^.strInfo;
end;procedure TForm1.FormCreate(Sender: TObject);
 var
   pMS:PMyStruct;
begin
  new(pMS);  pMS^.strInfo:='cwb';
  lst1.AddItem('财务部', TObject(pMS));
end;

Answer 1

Lst1.Items.AddObject('财务部', TObject(pMS)); 这么写哟

Answer 2

按楼上的做，结果都是 最后一次赋值 的 数据pMS^.strInfo:='cwb';
lst1.Items.AddObject('财务部', TObject(pMS));pMS^.strInfo:='jdc';
lst1.Items.AddObject('教导处', TObject(pMS));

Answer 3

var 
  pMS:PMyStruct; 
begin 
  new(pMS);   pMS^.strInfo:='cwb'; 
  lst1.AddItem('财务部', TObject(pMS)); 
  
  new(pMS); 
  pMS^.strInfo:='jdc'; 
  lst1.Items.AddObject('教导处', TObject(pMS));
end每次都new一下

Answer 4

var 
  pMS:PMyStruct; 
begin 
  new(pMS);   pMS^.strInfo:='cwb'; 
  lst1.AddObject('财务部', TObject(pMS)); 
  
  new(pMS); 
  pMS^.strInfo:='jdc'; 
  lst1.Items.AddObject('教导处', TObject(pMS));
end

Answer 5

靠，copy老出错，抱歉var 
  pMS:PMyStruct; 
begin 
  new(pMS);   pMS^.strInfo:='cwb'; 
  lst1.Items.AddObject('财务部', TObject(pMS)); 
  
  new(pMS); 
  pMS^.strInfo:='jdc'; 
  lst1.Items.AddObject('教导处', TObject(pMS));  new(pMS); 
  ...
end

Answer 6

如何动态指定 某一项 未选择状态呢？？？比如从数据库读取的值为：cwb  那么就让 财务部 这一项 呈选择状态...