关于汉字处理的问题

Question

1。比如在Edit1里输入一个汉字，如何判断是简体，还是繁体？
2。如何实现简体繁体互相转化，原理？哪儿有好用的相关控件？请指教。多谢。

Answer 1

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;
来自超级猛料

Answer 2

超级猛料太大了，我的56K猫正在下。StrConv() ???
CHTToCHS() ???
是不是要加入什么单元文件，还请指教？另外，如何判断一个字是简体还是繁体呢？

Answer 3

CHTToCHS() 应该是函数把，就像inttostr()那样的函数！

Answer 4

确实是一个函数，但却不知道包含在哪个Units中。
难道没有人做过汉字转化的吗？有哪位高手能给指点一下。不胜感激。