hz008:如何能将汉字转变成相应的十位数字(200分)

www · 1999-12-25

请说清楚些。什么是十位数字?

wjiachun · 1999-12-25

什么叫汉字相应的十位数字？

kucio · 1999-12-25

不明白！

Ridolph · 1999-12-25

menxin · 1999-12-26

十进制数？

Schiesser · 1999-12-26

取汉字内码不就行了?

kangxy · 1999-12-26

是不是像这样, 1024 = 壹千零贰十肆或反过来. 自己写一个对应表不就行了.没有难度,只是写起来麻烦一些, 大富翁上讨论过此问题.

JinLi · 1999-12-26

如果是汉字GB码处理二个字节机内码 如果是汉字U8码处理四个字节机内码

阿蒙 · 1999-12-27

是不是将汉字转变为二进制码？

DreamTiger · 1999-12-28

一个简单的程序，只能转换最多999的数字（对于我要用到的已经足够了） Function ConvertNumberToChinese(const c:string):string; var   s:string;   i,theLength:integer; Begin   s := '';   i := 1;   theLength := Length(c);   if(theLength - 2 = i) then   Begin     case c of     '1': s := s + '一百';     '2': s := s + '二百';     '3': s := s + '三百';     '4': s := s + '四百';     '5': s := s + '五百';     '6': s := s + '六百';     '7': s := s + '七百';     '8': s := s + '八百';     '9': s := s + '九百';     end;     Inc(i);   end;   if(theLength - 1 = i) then   Begin     case c of     '0':       begin         if('0' = c[i+1]) then         begin           Result := s;           exit;         end;         if('0' <> c[1]) then s := s + '零';       end;     '1': s := s + '十';     '2': s := s + '二十';     '3': s := s + '三十';     '4': s := s + '四十';     '5': s := s + '五十';     '6': s := s + '六十';     '7': s := s + '七十';     '8': s := s + '八十';     '9': s := s + '九十';     end;     Inc(i);   end;   if(theLength = i) then   Begin     case c of     '1': s := s + '一';     '2': s := s + '二';     '3': s := s + '三';     '4': s := s + '四';     '5': s := s + '五';     '6': s := s + '六';     '7': s := s + '七';     '8': s := s + '八';     '9': s := s + '九';     end;   end;   Result := s; end;

hz008 · 2000-01-04

对不起，是怎样转为十进制的数

DreamTiger · 2000-01-04

是纯中文数字？只为100以下的做过：（里面如果有万、千、百，就不灵了） function ConvertChineseToNumber(const s:string):integer; var   i,theLength:integer;   num,PartOfS:string; Begin   theLength := Length(s);   num := '';   if(thelength = 1) then num := '0';   i := 1;   if(s = '十') then   begin     Result := 10;     exit;   end;   PartOfS := Copy(s,i,2);   if(PartOfS = '十') then   Begin     num := num + '1';     Inc(i,2);   end;   while(i < theLength) do   Begin     PartOfS := Copy(s,i,2);     if((PartOfS = '零') or (PartOfS = '０') or (PartOfS = '○')) then     Begin       num := num + '0';       Inc(i,2);       continue;     end     else if(PartOfS = '十') then       begin       Inc(i,2);         if(i = thelength - 1) then num := num + '0';         continue;       end     else if((PartOfS = '一') or (PartOfS = '１')) then       Begin       num := num + '1';         Inc(i,2);         continue;       end     else if((PartOfS = '二') or (PartOfS = '２') or (PartOfS = '廿')) then     Begin       num := num + '2';         Inc(i,2);         continue;       end     else if((PartOfS = '三') or (PartOfS = '３') or (PartOfS = '叁') or (PartOfS = '卅')) then     Begin       num := num + '3';         Inc(i,2);         continue;       end     else if((PartOfS = '四') or (PartOfS = '４')) then       Begin       num := num + '4';         Inc(i,2);         continue;       end     else if((PartOfS = '五') or (PartOfS = '５')) then       Begin       num := num + '5';         Inc(i,2);         continue;       end     else if((PartOfS = '六') or (PartOfS = '６')) then       Begin       num := num + '6';         Inc(i,2);         continue;       end     else if((PartOfS = '七') or (PartOfS = '７')) then       Begin       num := num + '7';         Inc(i,2);         continue;       end     else if((PartOfS = '八') or (PartOfS = '８')) then       Begin       num := num + '8';         Inc(i,2);         continue;       end     else if((PartOfS = '九') or (PartOfS = '９')) then       Begin       num := num + '9';         Inc(i,2);         continue;       end     else       Begin         Inc(i);         continue;       end;   end;   if Length(num) = 0 then Result := 0   else  Result := StrToInt(num); end;

hz008 · 2000-01-07

也就是怎样取得汉字的内码,然后再转成十进制数字,帮帮忙!

DreamTiger · 2000-01-07

以后问问题写清楚点，省得我费了老大劲，最后落个文不对题的下场。

hz008 · 2000-01-08

批评的有道理，我因为进入这里很难，也容易掉线，所以敲问题时太匆忙 给大家道歉！

hansong · 2000-01-08

Very easy. var str:string;   i:integer; begin   str:='这是一个试验！';   Caption:=Format('length:%d',[Length(str)]);   for i:=1 to Length(str) do     Caption:=Caption+Format(',%d',[ord(str)]);   showmessage(chr(213)+chr(226)+chr(163)+chr(161)); end;

JinLi · 2000-01-10

不知你要做什么？？？？ 一般是读字库时需要此功能供参考 var str:string;     code,hi,lo,i:ineger; beging   str:='中’； //GB码为例   if (str[1]>= 127) and (str[2]>= 127) then //二个字节高位是否1   beging     hi:=str[1] and 127;//取区号     lo:=str[2] and 127;//取位号     code:=(hi-16)*94 + (lo - 1);//十进制数GB码位置     //以下字库结构不同算法而不同   end; end;

hz008 · 2000-01-11

谢谢各位的帮助！

hz008:如何能将汉字转变成相应的十位数字(200分)

hz008

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

kucio

Unregistered / Unconfirmed

Ridolph

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

Schiesser

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

JinLi

Unregistered / Unconfirmed

阿蒙

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

hz008

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

hz008

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

hz008

Unregistered / Unconfirmed

hansong

Unregistered / Unconfirmed

JinLi

Unregistered / Unconfirmed

hz008

Unregistered / Unconfirmed

Similar threads