新手求助，麻烦大神看一下

Question

C# 里面的这段代码用delphi ,怎么实现public static string hexchar2bin(string passWord)
        {
            int ee;
            char jj;
            StringBuilder builder = new StringBuilder();
            for (int i = 0; i < passWord.Length; i = i + 2)
            {
                ee = Convert.ToInt32(passWord.Substring(i, 2), 16);
                jj = Convert.ToChar(ee);
                builder.Append(jj);
            }
            return builder.ToString();
        }

Answer 1

从你提供的函数名称来看，该是16进制数字符转2进制数字符，但从代码效果看来却是整数字符转为16进制数字符，是我理解错了吗？按代码含义转化如下：
function hexchar2bin(passWord: string):string;
var i:integer;
begin
  Result:='';
  if length(passWord) mod 2=1 then begin
    showmessage('传入参数不是偶数，无法按既定规则转换。');
    exit;
  end;
  try
    for i:=0 to length(passWord) div 2-1 do
      Result:=Result+inttohex(strtoint(passWord[i*2+1]+passWord[i*2+2]),2);
  except
    Result:='';
    showmessage('传入参数中含非数字字符。');
  end;
end;应用例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=hexchar2bin(edit1.Text);
end;