InputBox

[fmtidona]

Hola! como hago para que no me reviente el codigo cuando quiero que me ingresen un numero y me ponen un string
Gracias

  
var:
usuario : integer;

usuario := strtoint (InputBox('Identificación', 'Ingrese su numero de usuario',''));

[[seoane]]

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
    // Si llegamos aqui es que lago va mal
  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
    // Si llegamos aqui es que lago va mal
  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

[fmtidona]

Muchas Gracias , muy buena y completa la respuesta.