怎样把串直接转换成十六进制的数

Question

比如我把123F这字符串直接转换成十六进制的数是$123F

Answer 1

function StrToHex(sNum:string;iBit:integer):string;
var
  i:integer;
begin
  i:=StrToInt(sNum);
  result:=IntToHex(i,iBit);
end;

Answer 2

Function CharToHex(cNum:Char;iBit:integer):string;
var
  i:integer;
begin
  i:=ord(cNum);
  result:=IntToHex(i,iBit);
end;

Answer 3

直接转化就可以了：
Function StrToHex(AStr: string):string;
begin
  if AStr[1] <> '$' then
    Result := '$'+AStr
  else
    Result := AStr;
end;