前端之家收集整理的这篇文章主要介绍了
在Delphi 7中进行字符串转换,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我的应用程序是一个用Delphi 7编写的非unicode应用程序.
我想用这个函数将unicode字符串转换为ANSI:
function convertU(ws : widestring) : string;
begin
result := string(ws);
end;
我还使用此代码来设置要转换的正确代码页.
initialization
SetThreadLocale(GetSystemDefaultLCID);
GetFormatSettings;
它在VCL主线程中运行良好,但在TThread中运行不正常,
哪里有一些问题标记’?’作为函数convertU的结果.
为什么不在TThread?
在初始化块内
调用SetThreadLocale()对TThread没有影响.如果要设置线程的语言环境,则必须在TThread.Execute()
方法内
调用SetThreadLocale().
更好的选择是完全不依赖于SetThreadLocale().通过直接调用WideCharToMultiByte()进行自己的转换,以便指定要转换为的特定Ansi代码页.
原文链接:https://www.f2er.com/delphi/239345.html