Somar Hexadecimal em Delphi

Delphi

19/09/2006

:?: Olá a todos.
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

Neto

Curtidas 0

Respostas

Siam

Siam

19/09/2006

Essa soma não seria $198 ?


GOSTEI 0
Neto

Neto

19/09/2006

Sim seria, coloquei 98 porque tenho que despresar a esquerda
como faço para somar os valor hexa????
Abraços e obrigado
Neto


GOSTEI 0
Siam

Siam

19/09/2006

Vc pode colocá-los numa string e somar pelo Ord:
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
Neto

Neto

19/09/2006

Ok Siam, obrigado pela ajuda.
Tudo resolvido.
Neto


GOSTEI 0
POSTAR