Question

Como se evade el error 106 de pascal?

Answer 1

Prueba lo siguiente: 
Program Valida; 
Var DatoEntero :Integer; VarDeEntrada :String; ValidaError :Integer; 
Begin Write('Ingrese un número entero:''); ReadLn(VarDeEntrada); Val(VarDeEntrada, DatoEntero, ValidaError); If (ValidaError=0) then Writen('Ingresó el valor correctamente') Else Writen('Valor no válido'); End. 


{$i-} read(i); {$i+} if ioresult <> 0 then {esto para un error general} write('Erro'); 
Si quieres saber especificamente que error se presento, ioresult guarda el numero de error de los errores de entrada y salida . o sea que es lo mismo poner 
{$i-} read(i); {$i+} if ioresult =106 then write('Formato numerico no vlaido');