Verificando se um valor é numérico ou String

Bem pessoal, hoje mostrarei uma função nativa do Delphi para verificar se valor é númerico ou String, ao invés de criar funçãoes para este fim.

Para isso usarei a função val.

Então vamos lá.

….

var

valor  :  string;

nr : integer;

c : integer;

begin

val(valor,nr,c);

if c=0 then

é númerico

else

é string;

….

onde

valor é a string que se deseja saber se é numérica ou não;

nr é o tipo numérico a ser comparado, pode ser integer ou real;

c é a variável de retorno da comparação, se 0 é verdade senão é falso.

Espero ter ajudado.

Até a próxima.