var i:Longint; li:TListItem; for i:=0 to listview1.items.count-1 do begin li:=listview1.items.item[i]; listbox1.items.add(li.caption);//第一列 listbox2.items.add(li.subtiems.string[0]);//第2列 listbox3.items.add(li.subtiems.string[1]);//第3列 //依次类推 end;
----------------------------------------------
运行后出现 [Hint] Unit1.pas(49): Variable 'i' is declared but never used in 'TForm1.Button1Click' [Error] Unit1.pas(137): Undeclared identifier: 'subtiems' [Error] Unit1.pas(148): '.' expected but ';' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'