T troyliu Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-16 #2 你的分太少了 ASC到字符串 ord() 字符串到ACS chr()
三 三代坦克 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-16 #3 procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; s: string; begin s := '我'; i := $ce; j := $d2; showmessage(chr(i)+chr(j)); showmessage(inttostr(ord(s[1]))); //ce showmessage(inttostr(ord(s[2]))); //d2 end;
procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; s: string; begin s := '我'; i := $ce; j := $d2; showmessage(chr(i)+chr(j)); showmessage(inttostr(ord(s[1]))); //ce showmessage(inttostr(ord(s[2]))); //d2 end;