切换简繁体问题(0分)

各位:
小弟有麻烦了,一台湾客户要我为他们在主界面上提供一按钮可以切换简繁体问题,
希望各位能给小弟指明思想和解决方法.谢谢了.

兄弟，如果有了好结果，请通知我：dongfeg@163.com
谢谢！！

你是说windows界面吗？
你只需用程式把控制面板的地区与语言选项调出来，然后打开语言tab,
把对话框与功能表语言方块的选项变成繁体中文就可以了！
用程式来实现是一件相当容易的事情，我就做过相关的问题！

我用的是一个笨方法，在Radio Bar中作判断，我把要Show出的Label Caption做了不同的码，这是在Word中事先转好的。

谁有没有把繁体转换成简体的算法？

我有一个转换内码的函数，谁要给我Mail:hong_fang@msn.com[^][]

procedure TForm1.Button1Click(Sender: TObject);
var
do
c,applevariant;
s:string;
begin
do
c:=createOleobject('word.Document');
app:=doc.application;
app.Selection.typetext(Memo1.text);
app.Selection.wholestory;
app.selection.select;
app.WordBasic.ToolsSCTCTranslate(0,0,0);//??Ác
// app.WordBasic.ToolsTCSCTranslate(0,0,0);//Ác??
s:=app.selection.text;
delete(s,length(s),1);
s:=stringreplace(s,#13,#13#10,[rfReplaceAll]);
memo1.text:=s;
do
c.close(0);
end;
我調用word的功能,卻在createOleobject不能通過,提示[Error] Unit1.pas(33): Undeclared identifier: 'createOleobject',請問該怎樣定義它

呵呵，这个问题简单，你有没有USES ComObj。
若程序不大可直接用INI文件搞定。
DEMO如下：http://www.eFile.com.cn/eFile/martin_xiao/DBTOOL.rar
欢迎交流。
mail: martinsoft@163.com