本文整理自网络,侵删。
var lList: Tstrings; i: integer;begin lList:= TStringList.Create; try for i:=0 to ListView.Items.Count -1 do LList.add(listview1.items[i].caption + '|' + listview1.items[i].subitems.strings[0] +'|' + listview1.items[i].subitems.strings[1]); LList.SavetoFile('aaaaa.txt'); finally lList.Free; end;end;
来源:https://blog.csdn.net/penjie0418/article/details/7182675
相关阅读 >>
Delphi 中让嵌入窗体的 webbrowser 控件无边框
Delphi webbrowser1 网页提交按钮执行点击事件
Delphi application.restore不起作用了,该如何处理
更多相关阅读请进入《Delphi》频道 >>