进制与ASCII码转换

   LabeledEdit4.Text := chr();   // 用十进制方式赋值:  ASCII码转换为字符 65 -> A
   LabeledEdit4.Text := #;       // 用十进制方式赋值:  ASCII码转换为字符 65 -> A

   LabeledEdit4.Text := #$;      //用十六进制方式赋值: ASCII码转换为字符 41 -> A
   LabeledEdit4.Text := chr($);  //用十六进制方式赋值: ASCII码转换为字符 41 -> A

   LabeledEdit4.Text := IntToStr(Ord('A')); //字符转换为十进制ASCII码 A -> 65
   LabeledEdit4.Text := IntToStr($A); //十六进制字符转换为十进制ASCII码 A -> 10
 end;

 end.
 //用Delphi把中文字符转换成ASCII的16进制形式 Chinese=array[..] of char;

 function TForm1.ChineseToHex(const Value: chinese): string;
 begin
   Result:=inttohex(ord(Value[]),)+inttohex(ord(Value[]),);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   s:Chinese;
 begin
   s:='您好';
   caption:=ChineseToHex(s);
 end;