进制与ASCII码转换

 

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

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

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

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

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

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