请问delphi中listbox的简单问题

Question

我在listbox除了保存每一项的name之外,还想保存每一项对应
的ID,该ID是widestring类型.但是id是不让用户看到的.
listbox中如何解决?多谢赐教

Answer 1

list中的item 为Tstringlist
可以用addobject加入字符传对应的对象

Answer 2

我的ID是olevariant类型,怎么转换成object类型呢?
用TObject()出错啊.

Answer 3

楼主，，
你上面不是说id是widestring类型的嘛？？
这一会又是olevariant类型，，，？？
这样问问题会很没有效率的：）

Answer 4

给你一段刚写的代码，是WIDESTRING类型的，。如果想扩展类型。。再改一下就OK了，unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  aa:widestring;
implementation{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
aa:=edit1.text;
listbox1.Items.AddObject(edit2.text,tobject(aa));
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit3.text:=string(listbox1.Items.Objects[listbox1.ItemIndex]);
end;end.

Answer 5

Id不让用户看到，你可以设一下width的值，最大，最小都为0，读取的时候就用StringList取吧