Tenho uma função em Delphi que recebe um tipo de dados genérico, gostaria de saber qual o tipo de dado recebido, tipo assim:
function MinhaFuncao<T>(): T
Preciso saber qual o tipo que esta em <T>
.
Tenho uma função em Delphi que recebe um tipo de dados genérico, gostaria de saber qual o tipo de dado recebido, tipo assim:
function MinhaFuncao<T>(): T
Preciso saber qual o tipo que esta em <T>
.
Para saber o tipo de variável que temos na função pode se usar a seguinte procedimento, exemplo:
procedure TForm1.ShowBasicVariantType(varVar: Variant);
var typeString: string;
basicType : Integer;
begin
basicType := VarType(varVar) and VarTypeMask;
case basicType of
varEmpty : typeString := 'varEmpty';
varNull : typeString := 'varNull';
varSmallInt : typeString := 'varSmallInt';
varInteger : typeString := 'varInteger';
varSingle : typeString := 'varSingle';
varDouble : typeString := 'varDouble';
varCurrency : typeString := 'varCurrency';
varDate : typeString := 'varDate';
varOleStr : typeString := 'varOleStr';
varDispatch : typeString := 'varDispatch';
varError : typeString := 'varError';
varBoolean : typeString := 'varBoolean';
varVariant : typeString := 'varVariant';
varUnknown : typeString := 'varUnknown';
varByte : typeString := 'varByte';
varWord : typeString := 'varWord';
varLongWord : typeString := 'varLongWord';
varInt64 : typeString := 'varInt64';
varStrArg : typeString := 'varStrArg';
varString : typeString := 'varString';
varAny : typeString := 'varAny';
varTypeMask : typeString := 'varTypeMask';
end;
ShowMessage('Variant type is '+typeString);
end;
Código para chamar a função:
var myVar : Variant;
begin
ShowMessage('Variant value = not yet set');
ShowBasicVariantType(myVar);
myVar := 123;
ShowMessage('Variant value = 123');
ShowBasicVariantType(myVar);
myVar := myVar + 456;
ShowMessage('Variant value = 123 + 456');
ShowBasicVariantType(myVar);
myVar := 'String '+IntToStr(myVar);
ShowMessage('Variant value = String 579');
ShowBasicVariantType(myVar);
end;
Result:
Variant value = not yet set
Variant type = varEmpty
Variant value = 123
Variant type = varByte
Variant value = 123 + 456
Variant type = varInt64
Variant value = String 579
Variant type = varString
Para mais informações consulte o DelphiBasics, pode ainda ver aqui tem mais um exemplo possível.