problemas al guardar listview

[olbeup]

Empezado por demonio6

Problemas al guardar listview

Un amigo esta creando un scaner y al parecer no puede guardar la información de este listview, la idea era guardarlo como txt y/o csv; el codigo era similar a este:

Código Delphi [-]
S := TStringList.Create; 
for i := 0 to ListView1.Items.Count-1 do 
  S.Add(ListView1.Items[i].Caption +','+ ListView1.Items[i].SubItems.CommaText);  
  S.SaveToFile('archivo.txt'); 
  S.Free;

No hay ningún error en el código, lo he realizado yo mismo y funciona correctamente guardando el archivo, como dice Neftali, puede ser que te falte el path.

Un saludo.

[BioStudio]

mm lo raro q a mi no me funciona, defini todo pero nada, se crea el archivo pero no guarda nada... ;(

[[nlsgarcia]]

BioStudio,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   S : TStringList;
   i : Integer;
   Item : String;

begin

   S := TStringList.Create;

   for i := 0 to ListView1.Items.Count-1 do
   begin
      Item := ListView1.Items.Item[i].Caption + ',' + ListView1.Items[i].SubItems.CommaText;
      S.Add(Item);
   end;

   S.SaveToFile(ExtractFilePath(Application.ExeName) + 'archivo.csv');
   S.Free;

end;

Este código genera un archivo CSV con los elementos del Listview en el directorio de la aplicación.

Espero sea útil

Nelson.

[[nlsgarcia]]

BioStudio,

Revisa este link : http://www.delphigeist.com/2009/10/t...w-and-csv.html

En el encontraras un ejemplo descargable del uso de TListView y archivos CSV.

El ejemplo del link lo modifique ligeramente para que pueda funcionar en Delphi 7 y esta disponible en : http://terawiki.clubdelphi.com/Delph...ew_CSV_src.rar

Espero sea útil

Nelson.

[BioStudio]

y por ejemplo si el ListView1 lo tienes en el Form1, como puedes desde el Form2 guardar su contenido?

[ecfisa]

Empezado por BioStudio

y por ejemplo si el ListView1 lo tienes en el Form1, como puedes desde el Form2 guardar su contenido?

Hola.


Form2:

Código Delphi [-]
...
implementation

uses Unit1; (* Form1 *)

procedure TForm2.btnGuardarListViewClick(Sender: TObject);
var
  i : Integer;
begin
  with TStringList.Create do
  try
    for i := 0 to Form1.ListView1.Items.Count-1 do
      Add(Form1.ListView1.Items[i].Caption +','+
          Form1.ListView1.Items[i].SubItems.CommaText);
    SaveToFile('archivo.txt')
  finally
    Free
  end
end;
...

Saludos.

[BioStudio]

Gracias por toda la ayuda!

Use similar pero para agregar datos:

Código Delphi [-]
var
  Form3: TForm3;

implementation

uses umain;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
// Agregar información a la Tabla.

with umain.Form1.ListView1.Items.Add do
    begin
      Caption := '2';            // Columna 0
      SubItems.Add( '1' );           // Columna 2
      SubItems.Add( 'MONITOR LG' );  // Columna 3
      SubItems.Add( '3' );           // Columna 4
      SubItems.Add( '230,45' );      // Columna 5
    end;
end;

end.