16进制转ASCII

Question

16进制转ASCII ，谁能贴一下源码啊？？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  A : integer;
begin
  A:= $64;
  showMessage(chr(A));
end;
這個？？

Answer 2

或是這個：
procedure TForm1.Button1Click(Sender: TObject);
var
  A : String;
  B : integer;
begin
  A:= '64';
  B := StrToint('$'+A);
  showMessage(chr(B));
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B,C : String;
  d : integer;begin
  A := '31 33 34 30 35 39';
   c := '';
  if length(A) = 0  then exit;
  while (1=1) do begin
    if pos(' ',A) = 0  then break;    B := trim(copy(A,0,pos(' ',a)-1));    C :=  C + Chr(StrToint('$'+B));    A := copy(A,pos(' ',a)+1,length(A));
  end;
  ShowMessage(C);
end;
 

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B,C : String;
  d : integer;begin
  A := '31';
   c := '';
  if length(A) = 0  then exit;
  while (A <> '') do begin
    if pos(' ',A) = 0  then begin
      B := trim(A);
      A := '';
    end else begin
      B := trim(copy(A,0,pos(' ',a)-1));
      A := copy(A,pos(' ',a)+1,length(A));
    end;    C :=  C + Chr(StrToint('$'+B));
  end;
  ShowMessage(C);
end;

Answer 5

HextoBin(str1,@DDBuf[0],i);