Zahl in Hex Wert, Hex in Byte, Byte in Zahl

[user0815]

Muss Zahlen in deren Hex Wert zerlegen, aus 9999 wird somit 270F, aus 100 wird 0064, diesen Wert als Byte speichern und nach Datenübertragung wieder zusammensetzen. Ich nutze hierzu folgenden Code.

Geht das auch besser ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Buf : array [0..1] of Byte;
  s : String;
begin
// zur Übertragung
  s := IntToHex(StrToInt('9999'), 4);
  ShowMessage(s);

// Datenübertragung muss als BYTE Wert erfolgen
  Buf[0] := StrToIntDef('$' + s[1] + s[2], 0);
  Buf[1] := StrToIntDef('$' + s[3] + s[4], 0);

// nach Übertragung
  s := Format('%.2x', [Buf[0]]) + Format('%.2x', [Buf[1]]);
  s := IntToStr(StrToInt('$' + s));

  ShowMessage(s);
end;

/edit: Muss als Byte übertragen werden