problemas al guardar listview

[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;

[Neftali [Germán.Estévez]]

¿Y qué le pasa cuando ejecuta ese código?
¿ Algún error?

La primera recomendación es que utilices el nombre de archivo con el path completo.

Pruébalo o dile a tu amigo que lo prueba y a ver qué pasa.

[demonio6]

un error era porq no había definido la S y la i, pero al definirlas se ejecuto normal pero al momento de guardar este se cuelga, y tira para enviar información a microsoft y no guarda nada, siquiera crea el archivo.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

[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?