delphi下怎样实现richedit控件中文本的繁体简体转换

来源：百度知道 编辑：UC知道 时间：2024/05/28 05:05:24
实现这一功能的途径、步骤、语句。
若能作出，再增分100！绝不食言。
谢谢二位提供的资料。但光复制点东西还不行呀，我再问,怎样设置:点一下button1把richedit1中的正在显示的简体转成繁体，再点一下又转回来（就是怎样把这些函数与按钮触发事件关联）？我业余菜鸟，请高手进一步指点一下——这与悬赏分有极为重要的联系哦。
===============================================================================================
我增添以下句子，能通过编译，但点击转换按钮无反应。
procedure TForm1.Button1Click(Sender: TObject);
begin //载入文本
richedit1.Lines.LoadFromFile('f:\shun.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //转换
GBChs2Cht(richedit1.Text );
end;
这是什么原因呀，请哪一位高手指点得分！

参考
http://topic.csdn.net/t/20060421/20/4704819.html

delphi 语法不太了解啊，应该是这样吧
richedit1.Text:=GBChs2Cht(richedit1.Text);

Function Big52GB(BIG5Str: String): AnsiString;
{进行big5转GB内码}
Var
Len: integer;
pBIG5Char: PChar;
pGBCHSChar: PChar;
pGBCHTChar: PChar;
pUniCodeChar: PWideChar;
Begin
//String -> PChar
pBIG5Char := PChar(BIG5Str);
Len := MultiByteToWideChar(950, 0, pBIG5Char, -1, Nil, 0);
GetMem(pUniCodeChar, Len * 2);
ZeroMemory(pUniCodeChar, Len * 2);
//Big5 -> UniCode
MultiByteToWideChar(950, 0, pBIG5Char, -1, pUniCodeChar, Len);
Len := WideCharToMultiByte(936, 0, pUniC