1   LabeledEdit4.Text := chr(65);   // 用十进制方式赋值:  ASCII码转换为字符 65 -> A
 2   LabeledEdit4.Text := #65;       // 用十进制方式赋值:  ASCII码转换为字符 65 -> A
 3 
 4   LabeledEdit4.Text := #$41;      //用十六进制方式赋值: ASCII码转换为字符 41 -> A
 5   LabeledEdit4.Text := chr($41);  //用十六进制方式赋值: ASCII码转换为字符 41 -> A
 6 
 7   LabeledEdit4.Text := IntToStr(Ord(‘A‘)); //字符转换为十进制ASCII码 A -> 65
 8   LabeledEdit4.Text := IntToStr($A); //十六进制字符转换为十进制ASCII码 A -> 10
 9 end;
10 
11 end.
12 //用Delphi把中文字符转换成ASCII的16进制形式13 Chinese=array[0..1] of char;
14 
15 function TForm1.ChineseToHex(const Value: chinese): string;
16 begin
17   Result:=inttohex(ord(Value[0]),2)+inttohex(ord(Value[1]),2);
18 end;
19 
20 procedure TForm1.Button1Click(Sender: TObject);
21 var
22   s:Chinese;
23 begin
24   s:=‘您好‘;
25   caption:=ChineseToHex(s);
26 end;