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