Nochmals HexToString und StringToHEx

[fapsons]

Habe gestern von jemanden unten stehnde Funktionen bekommen.
Sie laufen auch soweit. Das Problem ist nur, ich bräuchte die Funktion in einem anderen HEX-Format. Die Ausgabe müsste in reinen Zahlenwerte sein und nicht auch in Buchstaben.
Kann mir jemand sagen, ob ich die beiden Funktionen entsprechend noch umschreiben kann?

Gruß
-fapsons--


function StringToHexStr(const s : string):string;
begin
if s = '' then
Result := ''
else
begin
SetLength(Result, Length(s)*2);
BinToHex(PChar(s), PChar(Result), Length(s));
end;
end;



function HexStringToStr(s : string):string;
begin
if s = '' then
Result := ''
else
begin
if Odd(length(s)) then
s := '0'+s;
SetLength(Result, Length(s) div 2);
HexToBin(Pchar(s), PChar(Result), Length(Result));
end;
end;