Hola maxi915.
Opino del mismo modo que que
roman.
También aprovecho para desaconsejarte el antiguo uso de
{$IOCHECKS ON}/{$IOCHECKS OFF} en favor de [
try/except].
Código Delphi
[-]
procedure crearMeDatos(var meDatos:tipomeDatos);
var
rc: tiporegcontroldatos;
begin
AssignFile(medatos.control,_ruta + _archcontrol);
try
Reset(medatos.control);
except
Rewrite(metadatos.control);
rc.primero := _posNula;
rc.ultimo := _posNula;
rc.borrados := _posNula;
rc.total := 0;
Write(medatos.control,rc);
end;
Close(medatos.control);
AssignFfile(medatos.datos,_ruta+_archdatos);
try
Reset(medatos.datos);
except
Rewrite(medatos.datos);
end;
Close(medatos.datos);
end;
Saludos.