ListBox保存更多数据

PRec=^TRec;

TRec=record

a:Integer;

b:string;

end;

AddItem:

var rec:PRec;

begin

new(rec);

rec.a:=1;

rec.b:=’a’;

lst.Items.AddObject(‘It’s Demo’, TObject(rec));

end;

取值:

PRec(lst.Itmes.Objects[lst.ItemIndex]).a或b,使用之前需要检测是否有TObject。