Fórum Somar Hexadecimal em Delphi #329694

19/09/2006

0

:?: 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

Responder

Posts

19/09/2006

Siam

Essa soma não seria $198 ?


Responder

Gostei + 0

19/09/2006

Neto

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


Responder

Gostei + 0

19/09/2006

Siam

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;



Responder

Gostei + 0

20/09/2006

Neto

Ok Siam, obrigado pela ajuda.
Tudo resolvido.
Neto


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar