本文整理自网络,侵删。
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 xe7中启用或禁用了android蓝牙
更多相关阅读请进入《Delphi》频道 >>