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