显示简体功能的修正

bt

近日发现方块平台提供金庸水浒传下载，但是只支持繁体中文，故忽然想起金庸水浒传的简体显示功能貌似坏了很久了。


找出代码看了一下，貌似问题在以下函数：

1. //繁体汉字转化成简体汉字
   
2. 
   
3. function Traditional2Simplified(mTraditional: string): string; //返回繁体字符串
   
4. var
   
5.   L: integer;
   
6. begin
   
7. {$IFDEF windows}
   
8.   L := Length(mTraditional);
   
9.   SetLength(Result, L + 1);
   
10.   Result[L + 1] := char(0);
    
11.   if L > 0 then
    
12.     LCMapString(GetUserDefaultLCID,
    
13.       $02000000, PChar(mTraditional), L, @Result[1], L);
    
14. {$ELSE}
    
15.   Result := mTraditional;
    
16. {$ENDIF}
    
17. end; {   Traditional2Simplified   }

复制代码

因为后来字串多数改成了utf-8，而调用的Windows API LCMapString则是针对本地编码，故此处出现了问题。

那么解决方案就是在前后再转换一次即可。

懒得管，谁爱改谁改吧。

guotong1988

金水YYDS

ncnnnnn

bt老师YYDS

ncnnnnn

02000000  写死了的问题？

ncnnnnn

lcid = GetSystemDefaultLCID();
       cch = LCMapString(lcid, LCMAP_TRADITIONAL_CHINESE, (char *)src, -1, NULL, 0);
            dest = malloc(cch * sizeof(char));
       LCMapString(lcid, LCMAP_TRADITIONAL_CHINESE, (char *)src, -1, (char *)dest, cch);

//好熟悉的配方，，，

guotong1988

金水QEZ