Fórum funcao que retorna o tipo de uma variavel #190450
23/10/2003
0
Amigos,
alguem saberia me dizer se tem alguma funcao que retorna o tipo de uma variavel...
ex:
if fun_tipo(variavel) in [integer, string] then
....... ;
a ideia seria essa.
... outra duvida:
tem alguma funcao ou jeito de verificar se uma variavel integer eh nula ??
alguem saberia me dizer se tem alguma funcao que retorna o tipo de uma variavel...
ex:
if fun_tipo(variavel) in [integer, string] then
....... ;
a ideia seria essa.
... outra duvida:
tem alguma funcao ou jeito de verificar se uma variavel integer eh nula ??
Mprocha
Curtir tópico
+ 0
Responder
Posts
23/10/2003
Marcelo Saviski
essa ´variavel´ é um tipo variant?
Responder
Gostei + 0
23/10/2003
Mprocha
bom, a principio eu a declarei como integer, em VB6 o tipo variant ocupava bem mais memória que o tipo integer !
Em VB6 tínhamos funcoes que retornava qualquer tipo de qualquer variavel (date, integer, string, variant ...)
o delphi tem algo parecido jah implementado.
Em VB6 tínhamos funcoes que retornava qualquer tipo de qualquer variavel (date, integer, string, variant ...)
o delphi tem algo parecido jah implementado.
Responder
Gostei + 0
24/10/2003
Everton
Caro mprocha, tente essa função:
Function RetornaTipo(const v: Variant): String;
begin
Case TVarData(v).vType of
varEmpty: result := ´Empty´;
varNull: result := ´Null´;
varSmallInt: result := ´SmallInt´;
varInteger: result := ´Integer´;
varSingle: result := ´Single´;
varDouble: result := ´Double´;
varCurrency: result := ´Currency´;
varDate: result := ´Data´;
varUnknown: result := ´Desconhecido´;
varByte: result := ´Byte´;
varString: result := ´String´;
end;
end;
Function RetornaTipo(const v: Variant): String;
begin
Case TVarData(v).vType of
varEmpty: result := ´Empty´;
varNull: result := ´Null´;
varSmallInt: result := ´SmallInt´;
varInteger: result := ´Integer´;
varSingle: result := ´Single´;
varDouble: result := ´Double´;
varCurrency: result := ´Currency´;
varDate: result := ´Data´;
varUnknown: result := ´Desconhecido´;
varByte: result := ´Byte´;
varString: result := ´String´;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)