Algo extraño con TstringList

[*Caro*]

[quote=Cecilio;331090Si de camino alquien quiere mejorar el código que he puesto mejor, así aprendo directamente de los maestros. [/quote]

Hola cecilio, la diferencia entre el Assign y el igual ya te lo ha explicado el amigo coso. También puedes utilizar el procedimiento GetFieldNames que te devuelve la lista de campos de tu DataSet en el TString que le pases como parametro y para grabar en tu archivo puedes hacerlo direcatmente con SaveToFile de tu StringList.

Tu codigo quedaría así mas o menos

Código Delphi [-]
procedure TForm1.Generico(tb: string);
var
   s: string;
   n,v: integer;
   slCampos, slDatos: TstringList;
   ibb: TIBquery;
begin
 if not IBDatabase1.Connected then
  begin
    IBDatabase1.DatabaseName:=server.Text;
    ibDatabase1.Connected:=true;
  end;
  ibb:= TibQuery.Create(nil);
  ibb.Database:=Ibdatabase1;
  ibb.Transaction:=IbTransaction1;

  Ibb.SQL.Add('select * from '+tb);
  ibb.Open;

  slCampos :=TstringList.Create;
  slDatos :=TstringList.Create;
 
Try
  ibb.First;
  ibb.Last;
  Progressbar1.Max:=Ibb.RecordCount;
  progressbar1.Position:=0;

  ibb.GetFieldNames(slCampos);

  s:='';
  for v:=0 to slCampos.Count-1 do
      s:=s+slCampos[v]+';';
  
  slDatos.Add(s);

  ibb.First;
  n:=0;
  while not ibb.Eof do
  begin

     s:='';
     for v:=0 to ibb.FieldCount-1 do
      s:=s+ibb.Fields.Fields[v].AsString+';';

     slDatos.Add(s);

     inc(n);
     progressbar1.Position:=n;
    ibb.Next;
  end;//While
  slDatos.SaveToFile('C:\file.txt');
Finally
 ibb.Close;
 ibb.Free;
 slCampos.Free;
 slDatos.Free;
end;//try
end;

Saluditos

[[Al González]]

¡Hola!

Aquí hay otro ejemplo de cómo vaciar el contenido de un conjunto de datos a un CSV: http://www.youcantwin.com/dasblogce/...SaveToCsv.aspx

Se menciona a los Client Data Sets, pero la función sirve con cualquier otro tipo de conjunto de datos.

Pero, al igual que Linett, creo que yo también emplearía un TStringList y vaciaría el contenido a disco con el método SaveToFile, en lugar de usar las antiguas y entrañables funciones para manejo de archivos de Pascal.

Un vaciado abrazo.

Al González.

[javier7ar]

Por si te sirve, podes usar un TClientDataSet, que tiene un metodo SaveToFile y te guarda todo en un XML con un solo metodo y no tenes que andar haciendo todo el laburo vos. Despues lo podes recuperar con el metodo LoadFromFile y lo levantas al TClientDataSet de nuevo. A menos que necesites que el archivo sea CSV, el XML con el TClientDataSet me parece la opcion mas facil.
Saludos

[rgstuamigo]

Hola amigos ,leyendo este hilo se me quedo una duda y seria bueno que me lo pudieran aclarar ,la duda es en esta linea de codigo que puso el amigo Cecilio:

Código Delphi [-]
var
.
.
.
gs: TstringList;
..
.
.
.
gs:=TstringList.Create;//no seria necesario crearlo segun yo
gs:=ibb.FieldList;
.
.
.
gs.Free;//no hace falta liberarlo ya que es una referencia a bb.FieldList

Como podran verla variable gs no seria nesesario crearla(en este caso) sino darle solamente la asigancion que seria una referencia, lo que entiendo yo que hace el costructor Create es que reserva memoria para el objeto en si e inicializa sus atributos, pero en este caso ya para que crearlo si luego le voy a hacer una asignacion de otro objeto, no se si me explico, es algo asi como tener dos punteros apuntando a la misma direccion de memoria.
Esa es mi humilde opinion sobre el caso, si alguien tiene alguna objecion seria bueno para aclarar el asunto.
Saludos...

[javier7ar]

claro, eso fue lo que le corrigieron en los primeros posts. El no se daba cuenta de eso, e incluso estaba teniendo un error por eso. Fijate que le dieron dos alternativas, una hacer un Assing (en ese caso si es necesario crearlo y liberarlo) y la otra usar directamente ibb.FieldList (ahi no necesitas ni la variable)
Saludos