Odail Della Niesi Junior wrote:
> 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.
Você ainda não disse o que não deu certo. Tenta o seguinte:
var
VValue: Variant;
begin
VValue := SeuTField.GetValue;
if VarType(VValue) = varInteger then
// é inteiro
Veja a implementação do varInteger (segure o Ctrl e pressione o mouse
sobre ele) para conhecer os demais tipos, tal como smallint, byte, etc.
--
Joao Morais
> 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
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>
