特殊字符怎么得到它的

Question

 
请教一下大家，这种符号:怎么知道它是什么ASCII值呀 又不能复制比如有的是：
红框内的是字符是char(2)，它们之间是怎么转换的呢？我怎么知道第一个图中红框内的应该是char(?) ?
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
i := ord('');
ShowMessage(inttostr(i)); //这个时候i是2，但是图1中红框内的值无法复制，怎么用ord来算呀？
end;

Answer 1

procedure button1click(sender:Tobject);
var
    TempStr,a:String; 
    i,StrLen:integer; 
begin 
    TempStr:= '■';                      //这其实算一个汉字了，相当于'我'，一个字有两个字节
    StrLen   :=   Length(TempStr);      //获取字符串长度，此处为一个汉字，所以得到值是2 
    For   i:=1   to   StrLen   do       
    begin 
        a:=inttostr(Ord(TempStr[i]));   //获取各字节的ASCII 
        showMessage('十进制：'+a)                               //该字节的十进制表示
        ShowMessage('十六进制：'+IntToHex(Ord(TempStr[i]),2));  //该字节的十六进制表示
    end; 
end;汉字是占两个字节的，所以由两个字节的ASCII码叠起来（叠起来，尴尬，我词穷了，理解意思就好）。
接分啊。哇哈哈。