Cita:
|
Empezado por camambrini
Código Delphi [-]
procedure carga_config;
var
config:registro;
archivo: file of registro;
begin
{$i-}
AssignFile(archivo,'domo.cgf');
reset(arch);
blockread(arch,sizeof(registro);
CloseFile(configa);
{$I+}
|
Primero que nada Verifica el codigo!! porque?
ESTAS HACIENDO UN ASSING a "ARCHIVO"
pero Reseteas ARCH!!!!!!
en block Read como dijo "defcon1_es" esta incompleto!!
y por ultimo!! estas Cerrando cualquier cosa!!
CloseFile(configa) calculo que querras decir!! config!!
pero de todos modos. tendria que ser "archivo" o en el peor de los casos "arch"
fijate y eso contanos como va la cosa