Hola danielmj.
Cita:
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