怎样从一个字符串中提取一个中文字符并获得其国标吗?(100分)

littlegrass · 1998-11-27

你是一个programer吗？

littlegrass · 1998-11-27

给你一个程序： function FormatOutput(i:integer):string; // 带前导零输出 var   temp:integer; begin   temp := i - 160;   Result := IntToStr(temp);   if temp < 10 then     Result := '0' + Result; end; procedure TForm1.Button1Click(Sender: TObject); var   i,c1,c2:integer;   s:string; begin   s:= Edit1.Text;   i:=1;   Edit2.Text := '';   while i <= Length(s) do begin     c1 := Ord(s);     c2 := Ord(s[i + 1]);     if (c1 > 160) and (c2 > 160) then begin       // 判断是否汉字       Edit2.Text := Edit2.Text + FormatOutput(c1) + FormatOutput(c2); // 输出       i := i + 2;       break;             // 查到一个汉字后退出     end else       Inc(i);   end; end;

曹晓钢 · 1998-11-27

如果是要求拼音呢？ 麻烦多了吧。

littlegrass · 1998-11-27

也不麻烦呀！ 找到那个“汉字拼音对照表”查一下不就出来了。 *_^

delfan · 1998-11-28

告诉你们我想干什么吧。 前天下载了一个样例程序能够将 TTF 字符变成矢量画出来，使了一下画不出中文字符 故想求教与各位大虾

huizhang · 1998-11-29

Delfan, 我喜欢你的问题呀 可以如同正常的字符串操作那样, 把一个字符串当作一个 WideString 然后使用 数组下标得到一个 WideChar (16位字符): procedure TForm1.Button1Click(Sender: TObject); var   S: String;   W: WideChar;   I: integer;   Msg: String; begin   S:= 'A 汉字测试';   ShowMessage('StringLength='+               IntToStr(Length(s))+               ', WideStringLength='+               IntToStr(Length(WideString(s))));   Msg:='Order of Chars: ';   for i:=1 to Length(WideString(s)) do   begin     Msg:=Msg+IntToStr(Ord(WideString(S)))+'; ';   end;   ShowMessage(Msg); end; 

曹晓钢 · 1998-11-30

to 小草: 汉字拼音对照表在哪里?

pigprince · 1998-12-01

这个问题挺难的! 如果解决好了WIN95的DOS窗就不会在遇到制表符 时出现乱码了, 怎么还有人说太简单? 微软(中国)公司那么多高手都没有解决这个问题, 结果是在DOS窗口上加了一个汉字控制开关, 见过吧? 如果字符串中没有制表符就用上面的那一段程序, 写得不错.

littlegrass · 1998-12-01

to 曹晓钢: <a href="http://personal.wol.com.cn/grass/files/Pycode.zip">汉字拼音对照表</a>

曹晓钢 · 1998-12-01

小草,谢谢,祝愿早日长成大草.

littlegrass · 1998-12-01

littlegrass forever !!!  

delfan · 1998-12-13

多人接受答案了。

怎样从一个字符串中提取一个中文字符并获得其国标吗?(100分)

delfan

Unregistered / Unconfirmed

littlegrass

Unregistered / Unconfirmed

littlegrass

Unregistered / Unconfirmed

曹晓钢

Unregistered / Unconfirmed

littlegrass

Unregistered / Unconfirmed

delfan

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

曹晓钢

Unregistered / Unconfirmed

pigprince

Unregistered / Unconfirmed

littlegrass

Unregistered / Unconfirmed

曹晓钢

Unregistered / Unconfirmed

littlegrass

Unregistered / Unconfirmed

delfan

Unregistered / Unconfirmed

Similar threads