将listview保存为TXT

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;