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.