Hex Deger Toplama

[adelphiforumz]

S.A.

Elimde olan bir string degerin hex karşılıklarını matematiksel olarak toplamam gerekiyor
Aşağıda yaptığımdan daha farklı kolay bir yolu varmıdır
Teşekkürler

Kod: Tümünü seç

function HEX_Topla(pData:String):String;
var
  T, I : Integer;
  H : String;
begin
  T := 0;
  for I := 1 to Length(pData) do
    T := T + Ord(pData[I]);
  H := IntToHex(T, 8);
end;