Código
begin
Result := True;
Try
StrToInt(S);
Except
Result := False;
end;
end;
Caso a variavel passada como parametro seja um inteiro valido ele retorna True como resultado caso contrario retornara False
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009