InputBox

[fmtidona]

Hola! como hago para que no me reviente el codigo cuando quiero que me ingresen un numero y me ponen un string :confused:
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 :D , para eso usamos un bloque try ... except:

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:

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:

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. :)