chinesecharacters.txt

来自「一个简单的汉字拼音的处理方法」· 文本 代码 · 共 39 行

Function HZPY(sr:string):string;
 const ChinaCode: array[0..25,0..1] of Integer = ((1601,1636), (1637,1832), (1833,2077),
      (2078,2273),(2274,2301),(2302,2432),(2433,2593),(2594,2786),(9999,0000),
      (2787,3105),(3106,3211),(3212,3471),(3472,3634),(3635,3722),(3723,3729),
      (3730,3857),(3858,4026),(4027,4085),(4086,4389),(4390,4557),(9999,0000),
      (9999,0000),(4558,4683),(4684,4924),(4925,5248),(5249,5589));
 var
   C1, Len1, C2: Integer;
   ir : Word;
   FResult : String;
begin
  FResult := '';
  C1 := 1;
  Len1 := Length(sr);
  while (C1<=Len1) do
    begin
    if (ord(sr[C1])>=160) and (ord(sr[C1+1])>=160) then
       begin
       ir := (ord(sr[C1])-160)*100 + ord(sr[C1+1])-160;
       C2 := 1;
       if ir<500 then
          FResult:=FResult+sr[C1]+sr[C1+1];
       while (C2<=26) do
          begin
            if (ir>=ChinaCode[C2,0]) and (ir<=ChinaCode[C2,1]) then
             begin
               FResult := FResult+chr(C2+ord('a'));
               break;
             end;
            C2 := C2 + 1;
          end;
       C1 := C1 + 2;
       end else begin
           FResult:=FResult+sr[C1];
           C1:=C1+1;
       end;
    end;
   Result := FResult;
end;