Código
begin
try
StrToInt(TestaString);
except
On EConvertError do
result := False;
else
result := True;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009