Cargar una clase desde un fichero
 

Estimados compañeros foreros,

Estoy tratando de cargar un clase que se encuentra en un fichero. La aplicación dispone de una instancia global de la clase TEstante ya creada.

Código Delphi [-]
procedure TForm1.btCargarClick(Sender: TObject);
var
    FEstante : file of TEstante;
begin
    AssignFile (FEstante, 'patatita.bin');
    Reset (FEstante);
    Read (FEstante, Estante);
    CloseFile (FEstante);
    ShowMessage ('Archivo cargado con éxito');
end;

El resultado de la ejecución de este código es que Estante sigue conteniendo el mismo contenido que antes, por lo que la línea

Código Delphi [-]
    Read (FEstante, Estante);

no sustituye el contenido actual de Estante con el que se encuentra en el fichero.

Un saludo.

¿TEstante es una clase o un registro?... (¿Definido como class o record?)

Fíjate si te sirve este ejemplito, en lugar de utilizar las antiguas funciones de pascal para manejo de archivos utiliza un TFileStream.

Saludos!