Conversão

[Denis Bittencourt Muniz]

Fala gente!

alguém conhece alguma função no Delphi que converta valores Decimais para Hexadecimais? E também uma função que converta Hexadecimal para Decimal?

Falows!

[Churc]

ae rapaz blzz

adicione em uses Math

o retorno é string, ai você muda conforme necessidade...

//Decimal para Hexadecimal

function dectohex(valor: string): string;

var

val: integer;

begin

try

val := StrToInt(valor);

Result := IntToHex(val, Round(log2(val)) div 4);

except

Result := 'Erro';

end;

end;

//Hexadecimal para Decimal

function hextodec(valor: string): string;

begin

try

Result := IntToStr(StrToInt('$' + valor));

except

Result := 'Erro';

end;

end;

abraços