Eduardo Silva dos Santos wrote: > 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;
Eduardo, isso não é tosco. Isso é medonho. Odail, você sequer disse o que não deu certo. Pode ser mais específico? -- Joao Morais > > > 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 >> >> >> > > >
