HEX-string (Zweierkomplement) in Dezimal-string wandeln

[MarLe]

... und umgekehrt.

Delphi-Quellcode:

var sHex: string;
    iDez: integer;
begin
  sHex:='$93E0';
  iDez:=StrToInt(sHex);
end;

... funktioniert bei der Darstellung im Zweierkomplement nicht
weil z.B. $93E0 = -27680 ergibt.

Mein Gedanke, den String in eine Binärzahl wandeln, das Highbit rausziehen, Vorzeichen auswerten,
invertieren und einen Einser addieren und dann wieder wandeln.

Hat das vielleicht schon jemand mal umgesetzt oder bin ich auf der falschen Fährte?

[Hawkeye219]

Deklariere iDez mal als SmallInt...

Gruß Hawkeye

[chrisw]

Bei mir funktioniert das :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sHex: string;
    iDez: integer;
begin
  sHex:='$93E0';
  iDez:=StrToint(sHex);
  showmessage(inttostr(iDez)); // ergibt 37856
end;

[marabu]

Wenn man statt Integer einen vorzeichenlosen Typen (Word oder Cardinal) nimmt, dann gibt es auch keine Probleme.

Grüße vom marabu

[Hawkeye219]

Mit seinem Quelltext erhält er bereits ein positives Ergebnis (getestet mit Delphi 2006).
Ich denke, daß er ein negatives Ergebnis erwartet.

Gruß Hawkeye

[marabu]

Hallo Hawkeye,

ich hatte die Frage so verstanden, dass aufgrund des gesetzten Highbit im HexString und die Verwendung von Integer (in D1 oder durch Typverbiegung 16bit) fälschlicherweise ein negativer Wert geliefert wird. Egal, wie es gemeint war, jetzt liegen ja alle eventuellen Lösungen vor...

marabu

[MarLe]

Ich erwarte ein negatives Ergebnis.

@chrisw
$93E0 ergibt nicht 37856 sonder in der Zweierkomplement-Darstellung -27680 !!!

@Hawkeye219
Vom Wertebereich würde es passen.
SmallInt 16Bit mit Vorzeichen von +32767/-32768

Ich probier mal den Vorschlag von @marabu

[MarLe]

Delphi-Quellcode:

var sHex: string; 
    iDez: smallint; 
begin 
  sHex:='$93E0'; 
  iDez:=StrToInt(sHex);
  ShowMessage(IntToStr(iDez));  
end;

... haut nicht hin.
Meldung: Konstantenausdruck verletzt untere Grenze

Wenn ich iDEZ als longint deklariere bekomm ich wieder den falschen Wert 37856 ?!?

[Sharky]

Hmmm.... Delphi arbeitet doch mit dem Einerkomplement oder?
Wenn ich nun einen HEX-String habe von dem ich weiss das er eine Darstellung im Zweierkomplement ist muss ich das doch umrechnen:

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject);
var
  sHex: string;
  iDez: integer;
  neg : boolean;
begin
  sHex := '$93E0';
  iDez := StrToint(sHex);
  neg := (iDez AND $8000) = $8000;
  dec(iDez);
  iDez := iDez XOR $FFFF;
  if (neg) then
    iDez := iDEZ * -1;

  showmessage(inttostr(iDez)); // ergibt 37856
end;

[MarLe]

@Sharky
Das war auch mein Gedanke, Danke für die Bestätigung.
Dein Code funktioniert richtig

Delphi-Quellcode:

showmessage(inttostr(iDez)); // ergibt -27680

Hast du vielleicht auch noch gleich eine Lösung für den umgekehrten Weg,
von Dezimal nach Hex im Zweierkomplement?