• 解决在Windos7下Delphi应用程序乱码问题


    1,直接将英文的win7改成中文,步骤如下:

    —— 开始 
    —— Control Panel 
    —— Change display language 
    —— 选择 Formats 选项卡 
    —— Format 选择 Chinese (Simplified, PRC) 
    —— 选择 Location 选项卡 
    —— 选择 China 
    —— 选择 Administrative 选项卡 
    —— 在 Language for non-Unicode programs 下 Change system locale... 为 Chinese (Simplified, PRC) 
    —— Restart
     
    2,这个是转载别人的
    http://hi.baidu.com/523399/blog/item/5d422c7ad8dc6be52e73b3af.html
    Windows 7不错,Delphi 7也不错,不过两者合作不怎么协调。用Delphi 7打开旧工程,窗体上的中文全部成了乱码,这是由于Delphi 7将dfm文件中的unicode字符串转换成AnsiString时选择了错误的代码页,本来应该选择936代码页,却错误选择了1252。其实这也算是Windows 7 Beta版本的BUG吧?控制面板里已经把system locale设置成了Chinese PRC,但是系统运行的线程的locale还被windows初始化为1033,而locale 1033的代码也就是1252。Delphi 7放着system locale不用要去用线程各自的locale,也够笨的了。所以我们解决的办法就是改变线程的locale,这可以用SetThreadLocale这个API来解决。写一个bpl包安装到Delphi IDE中,IDE启动后就会自动加载我们的包了,这个包只需要一个单元文件:

    unit RTLFix;

    interface

    uses
       Windows;
      
    implementation

    10 initialization
    11 
       SetThreadLocale(LOCALE_SYSTEM_DEFAULT);
    12 end
    .
    13

    包被加载时,initialization节下的代码会自动执行,就达到了我们的目的。
    当然,我们的应用程序里也要写上一句SetThreadLocale(LOCALE_SYSTEM_DEFAULT),并且要让它尽早执行。
  • 相关阅读:
    很难理解的三个设计模式
    设计模式思考(转)
    AOP
    CAP理论(摘)
    DDBS
    NoSql
    Enterprise Library 企业库
    padright padleft
    Process ProcessThread Thread
    053374
  • 原文地址:https://www.cnblogs.com/leewiki/p/2289368.html
Copyright © 2020-2023  润新知