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.
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
delphi
Read (FEstante, Estante);
no sustituye el contenido actual de Estante con el que se encuentra en el fichero.
Puedo poner la aplicación entera (es pequeñita) a disposición si es necesario. Pienso subirla igualmente cuando termine ya que es un ejemplo del uso de TCollection.