Ver Mensaje Individual
  #13  
Antiguo 09-12-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Sobre la generalización no tengo mas para agregar, mamcx lo expuso muy cláramente.

En referencia al tema del guardado y recuperación del formato, es muy sencillo de implementar en un TDBGrid:
Código Delphi [-]
unit DBGridExt;

interface

uses SysUtils, Classes, DBGrids;

type
  TDBGrid = class(DBGrids.TDBGrid)
  public
    procedure SaveToFile(const aFileName: TFileName);
    procedure LoadFromFile(const aFileName: TFileName);
  end;

implementation

procedure TDBGrid.LoadFromFile(const aFileName: TFileName);
begin
  if not FileExists(aFileName) then
    raise Exception.Create('No se encuentra el archivo');
  with TFileStream.Create(aFileName, fmOpenRead) do
  try
    ReadComponent(Self);
  finally
    Free;
  end;
end;

procedure TDBGrid.SaveToFile(const aFileName: TFileName);
begin
  with TFileStream.Create(aFileName, fmCreate) do
  try
    WriteComponent(Self);
  finally
    Free;
  end;
end;
end.
Luego basta con agregar DBGridExt al final de la cláusula uses de la sección interface de la unidad donde reside el DBGrid y ya estan disponibles estos nuevos métodos.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 09-12-2014 a las 03:56:59.
Responder Con Cita