在Delphi 7中进行字符串转换
发布时间:2020-12-15 04:33:53 所属栏目:大数据 来源:网络整理
导读:我的应用程序是一个用Delphi 7编写的非unicode应用程序. 我想用这个函数将unicode字符串转换为ANSI: function convertU(ws : widestring) : string;begin result := string(ws);end; 我还使用此代码来设置要转换的正确代码页. initialization SetThreadLoca
我的应用程序是一个用Delphi 7编写的非unicode应用程序.
我想用这个函数将unicode字符串转换为ANSI: function convertU(ws : widestring) : string; begin result := string(ws); end; 我还使用此代码来设置要转换的正确代码页. initialization SetThreadLocale(GetSystemDefaultLCID); GetFormatSettings; 它在VCL主线程中运行良好,但在TThread中运行不正常, 为什么不在TThread? 解决方法
在初始化块内调用SetThreadLocale()对TThread没有影响.如果要设置线程的语言环境,则必须在TThread.Execute()方法内调用SetThreadLocale().
更好的选择是完全不依赖于SetThreadLocale().通过直接调用WideCharToMultiByte()进行自己的转换,以便指定要转换为的特定Ansi代码页. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |