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;
