5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
//假定数据存放于 TList 对象中,显示内存中的用户数据,
//利用时间传入的Item对象的Index值,我们可以知道要显示第几条数据
UserInfo:=UserList.Items[Item.Index];
Item.SubItems.Clear;
Item.Caption:=IntToStr(ListItem.Index+1);
Item.SubItems.Add(UserInfo.Name);
Item.SubItems.Add(UserInfo.Number);
....
end;