a814123
814123
2018-04-18 10:52
采纳率: 96.3%
浏览 644

delphi listview添加第二行数据时出错!

procedure TForm1.BitBtn1Click(Sender: TObject);
var
listdata:Plistdata;
i:integer;
begin
//初使化listview的数据到tlist中
ListViewData := tlist.Create;

New(listdata);
listdata^.Caption := '';
listdata^.second := '第二列';
//listdata^.three := '第三列';
listdata^.picon := TIcon.Create;
ImageList1.GetIcon(1, listdata^.picon);

ListViewData.Add(listdata);
ListView1.Items.Add;

end;


  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

相关推荐