Guardar ListView como Texto Plano

[ecfisa]

Hola danielmj.

Empezado por danielmj

...como realmente quiero que lo guarde sería de este modo:

Para que se guarde con ese formato:

Código Delphi [-]
procedure SaveListView(LV: TListView; const aFileName: TFileName; const Title: string);
var
  r, c: Integer;
begin
  with TStringList.Create do
  try
    Add('['+Title+']');
    for r:= 0 to LV.Items.Count-1 do
    begin
      for c:= 1 to LV.Columns.Count-1 do
        Add(Format('%s: %s',[LV.Columns[c].Caption, LV.Items[r].SubItems[c-1]]));
      Add('');
    end;
    SaveToFile(aFileName);
  finally
    Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.btnSaveClick(Sender: TObject);
begin
  SaveListView(ListView1, 'ListView.txt', 'DATOS CLIENTES');
end;

Datos de ejemplo:


Archivo resultante:


Saludos