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;