從readprocessmemory抓下的一串數據: A4 40 A7 47 61 62 63 A4 54 A5 7C 請問要如何轉成'一二三abc四五' 謝謝

------
xinjier禮品贈品

hotswin 您好：    您給的資料似乎有錯！ 感覺上好像是把資料通通轉成文字型態的十六進位數。 底下方法是把字串再轉回十六進位數，以湊出原先的結果，您參考看看。  

const chars : string = '0123456789ABCDEF';    function getDecimal(ch :char) : integer;
begin
  result := Pos(ch, chars) - 1;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
   str, msg : string;
   k, value : integer;
begin
  str := 'A440A447616263A454A57C';
  setLength(msg, Length(str) div 2);
  for k:=1 to length(str) div 2 do
     begin
       value := getDecimal(str[2*(k-1) 1]);
       value := value*16   getDecimal(str[2*k]);
       msg[k] := char(value);
     end;
  ShowMessage(msg);
end; 

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####