怎麼做到自動判斷系統簡繁體自動加載相應的窗體。還有怎麼把簡體的.drm轉成繁體,急,請高手指教!
解决方案 »
- 导出EXCEL包含图片关于按顺序导出的问题,请高手们指点。
- about crc16_ccitt what is do it help
- 如何得到用VC++开发的COM组件、IDispatch接口、safecall调用约定,方法的返回值?
- socket错误.
- 用什么函数在程序中点击连接到web上!急,初学者
- 关于客户端提交数据的问题?急!!!
- 代码简化
- 此题难倒我。各位,不知如何能使combobox的Height 与 ItemHeight 不一样
- 如何时时监控文件或文件夹
- 报表的强制分页输出(急、急、急)
- ado连结数据库的问题
- 如果机器上没有安装oracle客户端,delphi有什么方法连接oracle数据库吗?
编写出一个简体版,用本软件转换(可转换.dfm文件)就可以非常简单的转换成繁体版。并
可对桌面型数据库进行简繁转换。本软件同时也适用于需要简繁转换普通用户。
下载试用
http://www.skycn.com/soft/12038.html
http://www.onlinedown.net/ydc.htm
2.Big5和GB码相互转换的源码
http://61.132.118.185:8080/dispdocnew.php?t=&id=3493
if (Local_Code='404') or (Local_Code='C04') then
g_Language_Type:='C' //繁体
else
if Local_Code='804' then
g_Language_Type:='P' //简体
else g_Language_Type:='E'; //英文function Get_Check_LocalCode: string;
var
LanguageReg: TRegistry;
LanguageSet: string;
begin
LanguageReg:=TRegistry.Create;
try
LanguageReg.RootKey:=HKEY_USERS;
LanguageSet:='.DEFAULT\Control Panel\International';
if LanguageReg.OpenKey(LanguageSet,False) then
Result:=LanguageReg.ReadString('Locale');
finally
LanguageReg.Free;
end;
if Result<>'' then
Result:=Copy(Result,Length(Result)-2,3)
else
Result:='';
end;
http://61.132.118.185:8080/dispdocnew.php?t=&id=3493