Question

delphi 怎么把listview中的内容保存到txt

每位大虾.怎么把listview 每行保存到txt文体里面.TXT每行的格式为
listview1.items[i].caption + '|' + listview1.items[i].subitems.strings[0] +'|' + listview1.items[i].subitems.strings[1];

Answer 1

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;

Answer 2

TStrings 都有一个savetofile方法