João usou a elegância, vamos usar o método tosco..
Function IsInteger( Value:Variant ):Boolean;
begin
try
StrToint( value );
Result := True;
except
Result := False;
end;
end;
tem uma função que verifica isso, ha pouco tempo alguém perguntou e o Rubem
respondeu.
2008/9/24 Odail Della Niesi Junior <[EMAIL PROTECTED]>
> João não tive sucesso !
>
> Joao Morais escreveu:
> >
> > Odail Della Niesi Junior wrote:
> > > Tenho um valor do tipo Variant, preciso testá-lo se é um inteiro ou
> não.
> > > Agradeço antecipadamente a ajuda dos Colegas.
> >
> > if VarType(SeuVariant) = varInteger then
> >
> > --
> > Joao Morais
> >
> >
>
> --
> []s,
>
> Odail Della Niesi Junior
> São Pedro-SP
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
