Como guardar datos de un dbgrid en un fichero

[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