Fórum Hexadecimal (help) #375880
12/10/2009
0
O que há de errado nesse código?
Digito qualquer número e o resultado é sempre o mesmo: 4374760
var hexadecimal : Integer; begin Visor.Caption := FloatToStr(hexadecimal); IntToHex(hexadecimal, 1); hexadecimal := StrToInt(Visor.Caption); end;
Vlw a ajuda pessoal!
A proposito, alguem sabe como converter para decimal?
Ja converti para binário, facilmente..mas decimal não consegui!
Annubiss
Curtir tópico
+ 0Posts
13/10/2009
Annubiss
Não consegui fazer isso de jeito nenhum!
Sempre da o mesmo resultado!
Vlw
Gostei + 0
13/10/2009
Annubiss
=(
Gostei + 0
14/10/2009
Annubiss
Gostei + 0
14/10/2009
Facc
tenta isso
Function CharToHex( MyChar: Char ): String;
var escala: string;
res, num: integer;
Begin
num:=ord(Mychar);
escala:=´0123456789ABCDEF´;
res:=(num div 16);
result:=escala[res+1];
res:=(num-(res*16));
result:=result+escala[res+1];
End;
creio que no proprio forum já tenha algo parecido, pra isso existe o Pesquisar.
Gostei + 0
14/10/2009
Annubiss
Mas eu to no inicio do meu curso.. e ainda não aprendi a implementar funções no Delphi e se eu fizer isso meu professor vai complicar!
Eu precisaria algo comum, sem muitos detalhes!
Mas de qualquer forma, obrigado pela atenção!
Espero ajudas!
Gostei + 0
14/10/2009
Annubiss
=)
Vlw..
Preciso agora para OCTAL, vasculhei a net e não achei ajudas!
POR FAVOR..
=)
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)