B bbcoll Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-10 #1 1。一段话 “中国北京，第66街A座。“ 要求取出这句话的区位码并排列成一队包括其中的”，“和”。“ 2。当用光标选取其中的一段时取出它的区位码。 帮帮我吧我对这个不熟悉。
B benlei Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-10 #2 汉字到区位码: procedure GetQw(hz: String; var qm, wm: Integer); begin if (Ord(hz[1])<161)or(Ord(hz[2]<161) then Exit; qm := hz[1]-160; wm := hz[2]-160; end;
汉字到区位码: procedure GetQw(hz: String; var qm, wm: Integer); begin if (Ord(hz[1])<161)or(Ord(hz[2]<161) then Exit; qm := hz[1]-160; wm := hz[2]-160; end;
