Código Delphi [-] case VarType(V) of varInteger: ...; varString: ...; varBoolean: ...; ... end;
case VarType(V) of varInteger: ...; varString: ...; varBoolean: ...; ... end;