Código Delphi [-] var entero : Integer; begin if TryStrToInt(Cad1, entero) then showmessage('Si es entero') else showmessage('No es entero');
var entero : Integer; begin if TryStrToInt(Cad1, entero) then showmessage('Si es entero') else showmessage('No es entero');