Asmoday, вот ещё в качестве бонуса более быстрый и стабильный вариант StringToHex:
delphi Код:
function StringToHex(str1: AnsiString; sep: AnsiChar = #0): AnsiString;
const
hexAlf: array[0..15] of AnsiChar = '0123456789ABCDEF';
var
i,size:Integer;
begin
size:=Length(str1);
if sep=#0 then begin
SetLength(Result,size*2);
for i:=1 to size do begin
Result[i*2-1]:=hexAlf[Byte(str1[i]) shr 4];
Result[i*2]:=hexAlf[Byte(str1[i]) and $f];
end;
end else begin
SetLength(Result,size*3);
for i:=1 to size do begin
Result[i*3-2]:=hexAlf[Byte(str1[i]) shr 4];
Result[i*3-1]:=hexAlf[Byte(str1[i]) and $f];
Result[i*3]:=sep;
end;
end;
end;