字符转换十六进制

function StrToHex(Value: string): string;
var
  i,total: integer;
begin
  total := 0;
  for i := 1 to Length(Value) do
  begin
    total := total + Ord(Value[i]);
  end;
  Result := Format('%x',[total]);
  if Value = '' then Result := '00';
  if Length(Result) = 1 then
    Result := Result+'0';
end;

 

 

2.

var
  str: string;
begin
  str:= '$'+inttohex(ord('1'),2);