Como guardar datos de un dbgrid en un fichero

[Casimiro Noteví]

El dbgrid es una "ventana" a un dataset. Lo que debes hacer es recoger los datos del dataset. Ya sabes, el que está asociado mediante un datasource al dbgrid.

[orodriguezca]

En lugar de entregar un archivo binario a tu cliente podría ser un archivo en formato XML?. En un archivo XML puedes guardar todos los campos de tu formulario y además todos los registros del dataset que se muestran en el grid.

[walter86]

Se podría mandar el archivo que yo quiera, asi que me voy a poner a investigar mas ese formato. Muchas gracias

[ecfisa]

Hola.

Creo que la idea que te dió Casimiro es la correcta. Como la cantidad de registros visualizados en el DBGrid corresponde exáctamente a los que el usuario seleccionó mediante la búsqueda, basta con que recorras el DataSet asociado desde la primer fila a la última para obtener lo que deseas.

Te pongo un ejemplo en que los campos del DBGrid se concatenan separados por ";" y son muestrados en un ListBox :

Código Delphi [-]
...
var
  i: Integer;
  s: string;
begin
  DBGrid1.DataSource.DataSet.DisableControls;
  try
    DBGrid1.DataSource.DataSet.First;
    while not DBGrid1.DataSource.DataSet.Eof do
    begin

      s := '';
      for i := 0 to DBGrid1.FieldCount-1 do
        s := s + DBGrid1.Fields[i].AsString + ';';
      SetLength(s, Length(s)-1);
      ListBox1.Items.Add(s);

      DBGrid1.DataSource.DataSet.Next;
    end;
  finally
    DBGrid1.DataSource.DataSet.EnableControls;
  end;
end;

Cambia la acción de concatenar/mostrar en modo texto por la necesaria para guardar esos datos en tu archivo binario.

Saludos

[orodriguezca]

El problema que veo con la solución propuesta es que en el archivo binario a entregar al cliente no solo se debe incluir la información del Grid sino otros campos del formulario; no va a ser fácil desarrollar un "lector" que entienda toda esa información. Es por eso que propuse considerar un archivo de texto XML y no un archivo binario en el que se estaría guardando una estructura fija de tipo Record.

Aunque pensándolo un poco más quizas podría definirse una estructura de registro con parte variante, a la antigua, y seguir usando un archivo binario, por ejemplo:

Código Delphi [-]
type
  Tmis_datos = record
     case EsGrid: boolean of 
       false: begin
                   //Definimos los  datos del formulario a guardar
                   Dato1: string[10];  //Solo son ejemplos
                   Dato2: integer;
                   Dato3: double; 
                end;
       true: begin
                   // definimos las columas del grid a guardar
                   Col1: string[20];
                   Col2: string[3];
                   Col3: Currency;
                   Col4: strin[5];
                end;
     end;  
  end;

var
   mis_datos: TMis_Datos;

En el código:

Código Delphi [-]
begin
   .
   .
   .
  //Guardamos los datos del formulario
  mis_datos.EsGrid := False;
  Mis_datos.Dato1 := 'Prueba';
  Mis_datos.Dato2 := 1;
  Mis_datos.Dato3 := 7.2;
  Write(ArchivoBinario, Mis_datos);

  //Ahora guardamos el grid
  Grid.DataSource.DataSet.first;
  While not Grid.DataSource.DataSet.Eof do
  begin
     Mis_Datos.EsGrid := True;
     Mis_Datos.Col1 := Grid.DataSource.DataSet.Fields[0].Value;
     Mis_Datos.Col2 := Grid.DataSource.DataSet.Fields[1].Value;
     Mis_Datos.Col3 := Grid.DataSource.DataSet.Fields[2].Value;
     Mis_Datos.Col4 := Grid.DataSource.DataSet.Fields[3].Value;
 
     //Guardamos este registro del grid
     Write(Archivobinario, Mis_Datos);

     Grid.DataSource.DataSet.Next;
  end;

Bueno, la idea es esa. No tengo IDE a la mano para probarlo.