求多语言完整解决方案（300分）。(300分)

在原有系统的基础上增加多语言功能（简繁英）<br>设想：<br>1.修改工作量少。<br>2.适用于简体(GB2321)与繁体(Big5)操作系统、数据库。<br>3.可动态切换。

D2007的多语言支持功能可以试一下

这样工作量太大了~~~Delphi5.0---&gt;Delphi2007，继续关注。

实现的功能:<br><br>1.繁简体转换功能 <br><br>在简体下编译的程序不用任何修改,就可以在繁体下运行, 不用附加的INI或语言资源文件,只要一个EXE程序就可以了(在下是在DELPHI读取EXE中的控件属性时将之转换,这一点是其它繁简转换技术所不能及的,目前所知只此一家,哈哈)<br><br>当然在繁体下编译的程序不用任何修改也可在简体上来运行<br><br>2.多语言功能<br><br>可在程序运行时动态增加语言,切换语言.<br>&nbsp; 邮件 &nbsp; :grj208981@163.com;grj208981@sina.com<br><br>&nbsp; QQ &nbsp; &nbsp; &nbsp;:16187001

我也想知道,呵呵.

TO：grj<br>用外挂的形式？<br>可以在繁体操作系统下显示简体字吗？

我是在DELPHI读取控件属性时将之转换 未用外挂<br>使用方法<br>1.在单元的USES部分引用ABPubFormU单元,<br>2.修改窗体的继承为TABPubForm 就可以了<br><br>如下所示<br>function TABReader.NewReadWideString: WideString;<br>var<br>&nbsp; L: Integer;<br>&nbsp; Temp: UTF8String;<br>&nbsp; tempStr1:string;<br>begin<br>&nbsp; if NextValue in [vaString, vaLString] then<br>&nbsp; &nbsp; Result := ReadString<br>&nbsp; else<br>&nbsp; begin<br>&nbsp; &nbsp; L := 0;<br>&nbsp; &nbsp; case ReadValue of<br>&nbsp; &nbsp; &nbsp; vaWString:<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Read(L, SizeOf(Integer));<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SetLength(Result, L);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Read(Pointer(Result)^, L * 2);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; &nbsp; vaUTF8String:<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Read(L, SizeOf(Integer));<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SetLength(Temp, L);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Read(Pointer(Temp)^, L);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result := Utf8Decode(Temp);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; else<br>&nbsp; &nbsp; &nbsp; raise EReadError.CreateRes(@SInvalidPropertyValue);<br>&nbsp; &nbsp; end;<br>&nbsp; end;<br>&nbsp; //此处对DELPHI读出的字串进行处理，进行翻译<br>&nbsp; tempStr1:=ABWideStringToString(Result);<br>&nbsp; result :=ABLanguage.Chinese.TransitionChineseInReadPropertys(PropName,tempStr1);<br>&nbsp;<br>end;<br><br>如需要可提供EXE的示例

未发现有效的解决方法，继续关注……

多人接受答案了。