João é o seguinte. Tenho uma função GetValue, que retorna um Variant do meu DataSet, preciso verificar se esse valor quando retornado é um Inteiro. Um forte abraço.
Ex: 2008/9/24 Joao Morais <[EMAIL PROTECTED]> > 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]<dellaniesi%40gmail.com> > > > > > >> 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 > >> > >> > >> > > > > > > > > > -- Odail Della Niesi Junior São Pedro - São Paulo - Brasil MSN: [EMAIL PROTECTED] Skype: dellaniesi Paltalk: dellaniesi [As partes desta mensagem que não continham texto foram removidas]