怎样求得汉字的区位码， (100分)

sarny · 2002-08-14

var pchar1:array[0..16]of char; str,str1,s,pass:string; wdstr:widestring; i,j,h:integer; //sendby32:array[0..31]of byte; //读取的二进制代码 f1,f2:file of byte; flag1,flag:integer;          //汉字的ASCII码 //weiyi:integer;         //在汉字库中的偏移位 //qu,wei:integer;        //按拼音的区，位码 //c:char; temp:byte; temp1:array[0..31]of byte; begin str1:=edit1.Text; wdstr:=str1; strplcopy(pchar1,str1,16); pass:='HZK16'; assignfile(f1,pass); reset(f1); pass:='four.res'; assignfile(f2,pass); rewrite(f2); for i:=0 to 7 do begin s:=wdstr[i+1]; if length(s)>1 then    //判断要读取的字母是汉字或英文 Begin flag:=ord(pchar1[2*i])-$a0; //把ascii全设为正数 flag1:=ord(pchar1[2*i+1])-$a0; flag1:=(flag*100+flag1); end ; 这样用ord函数求得的区位码经显示过不对产生的是另处一个汉字‘中’字变成了‘邴’字， 求那位老大能帮我！

三点 · 2002-08-14

你计算出RichEdit共显示了多少行不就行了！

linsb · 2002-08-14

不那么简单，因每行的字高是不一样的！

TurboDog · 2002-08-16

让RichEdit显示最后一行，然后查看ScrollBar的Position

sarny · 2002-08-19

to TurboDog    richedit.scrollbar.position我这样写原代码会出错啊， 不知是什么原因！ 不知兄台可否把这段原代码写给我看下咯？ 先谢了

sarny · 2002-08-30

帮忙啊， 另外有分加的， 怎样求得一个字符的ansi码， 同时怎样求得一个文件以二进存的数据，取出指定的字节，

xians_wang · 2002-09-10

function IsHz(Source: string): Bool; begin   result := ((Word(Source[1]) shl 8 + Word(Source[2])) >= $B0A1) and     ((Word(Source[1]) shl 8 +   Word(Source[2])) <= $D7F9) end;

txdelphi · 2002-09-10

function ByteType(const S: string; Index: Integer): TMbcsByteType;  bytetype  它可以判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或 后一位。 mbSingleByte 单字母 mbLeadByte 双字节第一位 mbTrailByte 双字节第二位 你用这个函数就可以很简单的判断是汉字还是英文

cg1120 · 2002-09-10

试试这个： function Test(Str: string): Boolean; var   i: Integer; begin   Result := False;     if ord(Str) > $7F then       Result := True; end; procedure TForm1.Button1Click(Sender: TObject); var i:char;     j:integer;     s:string; begin   i:='4';//这个为初始阶段   s:=edit1.text;   for j:=1 to length(s) do   begin      if test[j] then      begin          if (i='4')or(i='0')then          begin            i:=0;//这个为中文            inc(j);          end          else          begin             i:='2';//这个为中英文混合          end;       end            else      begin          if (i='4')or(i='1')then          begin            i:=2;//这个为中英文混合            inc(j);          end          else          begin             i:='1';//这个为英文          end;      end;   end;  if i='0' then   showmessage("这个为中文")  else if i='1' then   showmessage("这个为英文")  else   showmessage("这个为中英文混合") end;

c2008 · 2002-09-10

码表127位前和127位后

ugvanxk · 2002-09-10

sw:widestring; s,c:string; sw:=s; for i:=1 to length(sw) do begin  c:=sw; if length(c)>1 then 双字节//汉字 end

sarny · 2002-09-12

能不能比较直接的得到一个汉字的ASCII， 我用上面几种方法， 如： VAR str,str1,str2:string; wdstring:widestring; i:integer; flag:longstring; begin str1:=edit1,text; wdstring:=str; for i:=1 to length(wdstring)-1 do begin str2:=wdstring; flag:=(word(str2[1]) shl 8+word(str[2]));//老是报这里WORD函数的参数引用不正确。不能编绎通过： end; end; 这一段函数注明处编绎通不过，请问大侠这种方法可行吗？ 不行请给我正确的解答，分不够。可多加

lww · 2002-09-12

请看以前的帖子 我想编一个打字测试程序，一边打一边显示字数和速度，但不知如何实现(特别是中文或者中英混合的情况)。   g622 (2000-11-19 19:43:20)   因为是打字就可以不考虑鼠标了，在onchange事件里，依次判断每个个字节是否大于128， 如是，汉字加一，且忽略后面的1个字符;若小于则是ascii。 公共变量 charcount:integer;中英文字符总数 v:integer;速度 st:tdatetime;开始时间 onchange: k:=0; for i:=1 to length(memo1.text) do begin  //控制符号就不算了吧  if ms=控制符号，10,13,tab等 then     continue;  //是否是中文  if ord(ms)>128 then    begin      //ms+ms[i+1]是一个汉字        k:=k+1;        continue;    end  else    k:=k+1;   end; charcount:=k; v:=k/(now()-st);

sarny · 2002-09-13

为什么啊，我用ord()函数求得的asic码与用vb求得的不一样啊，

childbaby · 2002-09-17

如果想得到一个打字的程序，太容易了。我送个给你，用delphi5写的。留下e-mail

htw · 2002-09-18

你的错误在于：你总想把两个字节的汉字拼在一起。 一个汉字由两个字节组成，要判断连续的两个字节是否汉字， 关键是看其第一个字节是否满足 >=$a0 条件，这个条件对GBK汉字都适用 而如果一个汉字是GB2312中定义的最常用的6763个汉字， 则第一个字节和第二个节字都必须满足>=$a0 条件的条件    nToLen := length(Form1.combobox1.Text);    k :=1;    while k <nToLen do  begin       stemp:=copy(Form1.combobox1.Text,k,2);       if (ord(stemp[1])<$a0) then       begin          Form1.label1.Caption :=sTemp;          Form1.label2.Caption :='不是汉字，请输入汉字';          exit;       end;    这是我以前的程序，肯定可行，只是你要把源代码看懂 (*************************************) procedure SearchQuwei(); var    sTemp, sTemp1, sTemp2 : string;    i , j ,nLen :integer; begin    sTemp1 :='';   sTemp2 :='';    stemp:=copy(Form1.combobox1.Text,1,2);    Form1.Label1.Caption :=sTemp;    nLen :=length(sTemp);    if nLen <2 then    begin       Form1.label2.Caption :='不是汉字，请输入汉字';       if sTemp ='' then  Form1.label2.Caption :='请输入待查询的汉字';       exit;    end;    sTemp1 :=copy(sTemp,1,1);   sTemp2 :=copy(sTemp,2,1);    i :=ord(sTemp1[1]) - $a0;   j :=ord(Stemp2[1]) - $a0;    str(i, sTemp1);              str(j, sTemp2);    if length(sTemp1) <2 then sTemp1 :='0'+sTemp1;    if length(sTemp2) <2 then sTemp2 :='0'+sTemp2;    if (i>=0) and (j>=0) then Form1.label2.Caption :=sTemp1+sTemp2  //输出区位码    else Form1.label2.Caption :='不是汉字，请输入汉字';    Form1.ComboBox1.Items.Add(sTemp); end;

sarny · 2002-09-18

to htw我开始也用这你种方法取得区位码，可是我用它去读字库（UCDOS的HZK16字库）， 可是区位码就是相差200~400，输入一个中字出来却是另处一个字，苦了我一天！现在还不为何故 现在我用WORD函数来求的，也是分好节结果却是对的，谢谢！ to childbaby 我这个问题到是解决了，我这个程序是为单片机发送矩阵二进制信息用的， 不过我对你那个打字练习也很兴趣能让那个代码让我看看好吗？ MY EMAIL：sarny_12@163.net

sarny · 2002-10-10

多人接受答案了。

怎样求得汉字的区位码， (100分)

sarny

Unregistered / Unconfirmed

三点

Unregistered / Unconfirmed

linsb

Unregistered / Unconfirmed

TurboDog

Unregistered / Unconfirmed

sarny

Unregistered / Unconfirmed

sarny

Unregistered / Unconfirmed

xians_wang

Unregistered / Unconfirmed

txdelphi

Unregistered / Unconfirmed

cg1120

Unregistered / Unconfirmed

c2008

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

sarny

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

sarny

Unregistered / Unconfirmed

childbaby

Unregistered / Unconfirmed

htw

Unregistered / Unconfirmed

sarny

Unregistered / Unconfirmed

sarny

Unregistered / Unconfirmed

Similar threads