Fórum Somar Hexadecimal em Delphi #329694
19/09/2006
0
Preciso somar hexadecimais, como faço:
Exemplo:
END = 15
USER= 08
CODI= 1234
RET = $31 + $35 + $30 + $38 + $31 + $32 + $33 + $34
RET = $98
Abraços a todos
Neto
Neto
Curtir tópico
+ 0Posts
19/09/2006
Siam
Gostei + 0
19/09/2006
Neto
como faço para somar os valor hexa????
Abraços e obrigado
Neto
Gostei + 0
19/09/2006
Siam
var s,sHex:String; i,iSoma:Integer; begin s := ´15081234´; iSoma := 0; for i := 1 to Length(s) do Inc(iSoma, Ord(s[i])); sHex := IntToHex(iSoma, 2); end;
Gostei + 0
20/09/2006
Neto
Tudo resolvido.
Neto
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)