HexToInt

[Carsten1234]

Hallo,

ich bekomme die Zeichenfolge (Werte)
FF FF FF E2
und weiß, dass daraus der Wert -30 werden soll(t)e.
Anderes Beispiel:
00 00 00 46 => +70

Frage: Wie lautet die Umrechnung?

Dank vorab und Gruß, Carsten

[mleyen]

Hast du schon die CodeLib-Variante getestet?

[Carsten1234]

Zitat von mleyen:

Hast du schon die CodeLib-Variante getestet?

Jepp. Mir fehlt aber
HexCharToWert

Gruß, Carsten

[mkinzler]

Was soll HexCharToWert machen?

[mleyen]

Meinst du soetwas:

Delphi-Quellcode:

function HexCharToWert(const HexChar: Char): Byte;
begin
  Result := StrToInt( '$'+HexChar );
end;

[mkinzler]

Zusätzlich müssen dann halt noch die Leerzeichen entfernt werden

[Draos]

HexCharToWert ist im Codebeispiel drin. Allerdings ist HexToInt parallel dazu anzuwenden.

HexCharToWert war für einzelne Buchstaben gedacht, aber sollte HexToInt auch einzelne Buchstaben korrekt umwandeln.

Er muss Leerzeichen entfernen und ich weiß nicht recht, ob sein Code Zahlen <0 mit HexToInt erkennt?

[Carsten1234]

HexCharToWert steigt leider aus mit einer EConvertException, wenn ich versuchen lasse, dass ÿ (ASCII-Wert $FF, s. ASCII-Tabelle) konvertieren zu lassen.
Was funktioniert, ist ein Ord('ÿ');
Ich könnte also machen:

Delphi-Quellcode:

var b1: byte;
    b2: byte;
    b3: byte;
    b4: byte;

und dann

b1:= Ord('ÿ'); // $FF
b2:= Ord('ÿ'); // $FF
b3:= Ord('ÿ'); // $FF
b4:= Ord('ä'); // $E2

Trotzdem: Wie komme ich damit auf -30 (dezimal)?

[mkinzler]

ÿ ist auch kein Hexwert

[Carsten1234]

Zitat von mkinzler:

ÿ ist auch kein Hexwert

Nö, aber
function HexCharToWert(const HexChar: Char): Byte;
will doch ein Char als Eingangsparameter...