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;