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