关于汉字处理的问题 1。比如在Edit1里输入一个汉字,如何判断是简体,还是繁体?2。如何实现简体繁体互相转化,原理?哪儿有好用的相关控件?请指教。多谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function Big5ToGB(pszSrc, pszDest : PChar; cbDest : Longint) : Longint;var buf : PChar; len : Integer;begin len := StrLen(pszSrc)+1; GetMem(buf, len*2); ZeroMemory(buf, len*2); StrConv(pszSrc, 950, buf, 936, len*2); Result := CHTToCHS(buf, pszDest, cbDest); FreeMem(buf);end;function GBToBig5(pszSrc, pszDest : PChar; cbDest : Longint) : Longint;var buf : PChar; len : Integer;begin len := StrLen(pszSrc)+1; GetMem(buf, len*2); ZeroMemory(buf, len*2); StrConv(pszSrc, 936, buf, 950, len*2); Result := CHSToCHT(buf, pszDest, cbDest); FreeMem(buf);end;来自超级猛料 超级猛料太大了,我的56K猫正在下。StrConv() ???CHTToCHS() ???是不是要加入什么单元文件,还请指教?另外,如何判断一个字是简体还是繁体呢? CHTToCHS() 应该是函数把,就像inttostr()那样的函数! 确实是一个函数,但却不知道包含在哪个Units中。难道没有人做过汉字转化的吗?有哪位高手能给指点一下。不胜感激。 怎么用ADO在已存在的数据库中动态的创建数据表呀? EHLib 安装时说少了个文件? 打开窗体文件会导致delphi6.0自动关闭 关于异地传输的问题 怎样获的一个目录下的所有子目录名称并且找出最早建立的。 資料表中的integer與varchar類型討論 有没有这样的控件? 16进制,二进制,10进制之间的转换函数?急 总是看到WebBrowser,他是个控件吗? sql语句,难呀 如何在程序中注册多个热键 Activexform做完之后怎么发布啊。
var
buf : PChar;
len : Integer;
begin
len := StrLen(pszSrc)+1;
GetMem(buf, len*2);
ZeroMemory(buf, len*2);
StrConv(pszSrc, 950, buf, 936, len*2);
Result := CHTToCHS(buf, pszDest, cbDest);
FreeMem(buf);
end;function GBToBig5(pszSrc, pszDest : PChar; cbDest : Longint) : Longint;
var
buf : PChar;
len : Integer;
begin
len := StrLen(pszSrc)+1;
GetMem(buf, len*2);
ZeroMemory(buf, len*2);
StrConv(pszSrc, 936, buf, 950, len*2);
Result := CHSToCHT(buf, pszDest, cbDest);
FreeMem(buf);
end;
来自超级猛料
CHTToCHS() ???
是不是要加入什么单元文件,还请指教?另外,如何判断一个字是简体还是繁体呢?
难道没有人做过汉字转化的吗?有哪位高手能给指点一下。不胜感激。