I Love PokeTB!
C+6C+1,BC-2,C+2D,A-6B-7A-8,A-9DC+6,A-2B-4C-4,C-3A-5,BA-9,B-9DC-1,C-2B-4C+2,B-5D-7B-7,D-1B-6,B+5C+4,AB-1
procedure TForm1.FormCreate(Sender: TObject);
var
a:char;
begin
a:='咚';
showmessage(inttostr(ord(a)));得到21658
showmessage(chr(21658));得到“咚”
end;
欢迎光临 口袋社区-Poke The BBS (https://ww.poketb.com/) | Powered by Discuz! 6.1.0F |