Verificar tipo de variaveis

Question

Boa tarde a todos..gostaria de saber se algu�m sabe como eu posso verificar se uma vari�vel � do tipo String, Integer, TDateTime, TTime, Double..o porque disso, � q quero ter uma fun��o que eu pass...

Tiago Soares · Answer

function Tform3.GetVariantType(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 := 'Date';
varOleStr: result := 'OleStr';
varDispatch: result := 'Dispatch';
varError: result := 'Error';
varBoolean: result := 'Boolean';
varVariant: result := 'Variant';
varUnknown: result := 'Unknown';
varByte: result := 'Byte';
varString: result := 'String';
varTypeMask: result := 'TypeMask';
varArray: result := 'Array';
varByRef: result := 'ByRef';
end;
end;

procedure TForm3.btn1Click(Sender: TObject);
var
teste : TDateTime;
begin
ShowMessage(GetVariantType(teste));

end;

Marcos Stiborski · Answer

mas n�o tem TTime nos varType..como vou verificar se � TDateTime ou TTime?...

Tiago Soares · Answer

Fiz o teste com TTime ele entende como Double...

Alex Const�ncio · Answer

Ol�No seu lugar eu abordaria o problema de outra forma. Faria uma s�rie de m�todos overload, um para cada tipo que precisa de suporte, e em cada um faria uma implementa��o espec�fica. Desta forma n�o haveria a necessidade de testes de tipagem, pois o compilador faria a sele��o com base no tipo do par�metro.Em n�o sendo poss�vel assim, ent�o eu usaria a mesma estrat�gia usada pelo m�todo Format, que recebe par�metros sem tipagem espec�fica e os avalia em tempo de execu��o. D� uma olhada no fonte do Format para entender como funciona.Alex...

Marcos Stiborski · Answer

Fiz o teste com TTime ele entende como Double[/quote]o meu problema eh esse, TDateTime e TTime s�o reconhecidos como double. e eu preciso diferenciar os dois..Referente aos m�todos overload, cai no caso do TDateTime, TTime e Double, o compilador manda sempre para o double.pois esses tipos s�o tudo double.vou dar uma olhada no format e ver se consigo achar uma solu��o..muito obrigado....

F�rum Verificar tipo de variaveis #443586