【Delphi编程】Delphi-将ListView内容导出到文件

procedure TMainForm.Btn_ExportClick(Sender: TObject);
var
  List: TStringList;
  SaveDialog: TSaveDialog;
  i: Integer;
begin
  List := TStringList.Create;
  try
    for i := 0 to Lv_Name.Items.Count - 1 do
      List.Add(Lv_Name.Items[i].Caption); // Lv_Name: TListView;Caption代表第一列的信息 
      //多列内容，可用 Lv_Name.Items[i].Caption + Lv_Name.Items[i].SubItems.Strings[0] + '|' + Lv_Name.Items[i].SubItems.Strings[1]....
    SaveDialog := TSaveDialog.Create(nil);
    SaveDialog.Filter := '*.txt|*.txt';
    SaveDialog.FileName := 'ProcessName';
    if SaveDialog.Execute then
    begin
      List.SaveToFile(SaveDialog.FileName + '.txt'); //采用stringlist封装的文件流接口
      Application.MessageBox('导出文件成功！', '提示', MB_ICONINFORMATION);
    end;
  finally
    List.Free;
  end;
end;