Negative HEX-Werte übertragen

[Satty67]

Mal was probiert

Delphi-Quellcode:

var
  HexStr : String;
  Zahl : SmallInt;
begin
  Zahl := -200;

  // Zahl wandeln
  HexStr := IntToHex(Hi(Zahl),2) + IntToHex(Lo(Zahl),2);

  // HexStr jetzt 4 Zeichen langer Hexcode
  Edit1.Text := HexStr;

  // Zurück Wandeln, kommt auch tatsächlich -200 raus
  Edit2.Text := IntToStr( SmallInt(StrToInt('$'+HexStr)));