Einzelnen Beitrag anzeigen

Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#4

Re: Negative HEX-Werte übertragen

  Alt 12. Mär 2009, 10:33
Zitat von Carsten1234:
Ein
Delphi-Quellcode:
function HexToInt(HexNum: string): LongInt;
begin
  Result:=StrToInt('$' + HexNum);
end;
mit
value:= HexToInt('FED4');
liefert brav -300.

Das Pendant IntToHex() liefert bei -300 FFFFFFED4 und das ist irgendwie doof.
Einfach die ersten vier Stellen abschneiden, dann machst du aus dem int einen Smallint. Beachte jedoch den Wertebereich/eventuelle Über/Unterläufe.
  Mit Zitat antworten Zitat