StrToHex Ersatz

[bigg]

moin,
ich habe dir mal eine kleine Funktion geschrieben, die das macht.
Zur Information:
Ein Char und ein Byte sind fast identsich, nur die Darstellung ist anders.
Die Funktion Ord() liefert uns von einem Zeichen (Char) den Ascii-Code.
Wir ändern also nur die Darstellung des Bytes.

Code:

function StringToHex(Text: String): String;
var i: Integer;
begin Result := '';
for i := 1 to Length(Text) do
Result := Result + IntToHex(Ord(Text[i]), 2);
end;