Puedes afrontar el problema de varias maneras, lo primero es que el código no debería de reventar
, para eso usamos un bloque try ... except:
Código Delphi
[-]
var:
Usuario : integer;
begin
try
Usuario := StrtoInt(InputBox('Identificación', 'Ingrese su numero de usuario',''));
except
end;
end;
O quiza usando TryStrToInt en ves de StrToInt:
Código Delphi
[-]
var:
Usuario : integer;
begin
if not TryStrToInt(InputBox('Identificación', 'Ingrese su numero de usuario',''),Usuario) then
begin
end;
end;
E Incluso podemos obstinarnos y no dejarle continuar si no lo hace bien:
Código Delphi
[-]
var:
Usuario : integer;
begin
repeat until TryStrToInt(InputBox('Identificación', 'Ingrese su numero de usuario',''),Usuario);
end;
Bueno, supongo que ya te vas haciendo una idea