Thema: Delphi hex wert subtrahieren

Einzelnen Beitrag anzeigen

nimmy

Registriert seit: 25. Feb 2014
4 Beiträge
 
#1

hex wert subtrahieren

  Alt 25. Feb 2014, 22:21
hallo zusammen,

ich möchte den einen hex wert ($04000000) vom anderen ($07FFFFFF) subtrahieren. den neuen wert lasse ich mir zur probe ausgeben:
log('range total: ' + '$' + (Format('%.8x',[strtoint64('$' + inttohex(((StrToInt64('$07FFFFFF') - StrToInt64('$04000000')) div 2), 8))]))); die ausgabe im memofeld erstaunt mich:
$01FFFFFF

während calc.exe es richtig macht:
$03FFFFFF

inttohex sieht so aus:
Delphi-Quellcode:
function StrToHex(S:string): string;
var
  i: byte; //Attention: max 255 characters, should be enough
begin
  Result:= '';
  for i := 1 to length (S) do
    Result := Result + IntToHex(ord(S[i]), 2);
end;
ich blicks nicht, was mache ich falsch? für jede hilfe bin ich dankbar.

beste grüße,

thomas
  Mit Zitat antworten Zitat