解決Delphi程式在非中文系統下亂碼

解决Delphi程序在非中文系统下乱码
在工程文件头加入 Windows引用

在begin后加入

SetThreadLocale(
    DWORD(Word(SORT_DEFAULT) shl 16) or
    DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or
    DWORD(Word(LANG_CHINESE))
    );

原理：设置程序的所在区域

方法来自互联网，备忘~



轉貼至:http://www.cnblogs.com/mikemao/archive/2011/01/15/1936459.html