导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
99j1 (99)
★☆☆☆☆
-
盒子活跃会员
2003/8/8 10:00:44
标题:
加入我的收藏
楼主:
請問怎樣能實現語言切換?如簡體與繁體切換或中文與英文切換?
----------------------------------------------
-
作者:
minger (minger)
★☆☆☆☆
-
盒子活跃会员
2003/8/8 14:01:04
1楼:
我以前在网上找到过一个示例。 具体哪里,现在记 不起来了。 你需要的话留个e-mail,我可以发给你。
----------------------------------------------
-
作者:
boy (阿門)
★☆☆☆☆
-
盒子活跃会员
2003/8/8 14:24:39
2楼:
var LngINIFile:TIniFile; LngSection:string; PathFileName:string; {$R *.dfm} function ReadLngString(LID:String):String ; var iPath:string; begin if Trim(PathFileName)=' then Exit; iPath:=GetCurrentDir +'\'+PathFileName; LngINIFile:=TIniFile.Create(ipath); Result:=LngINIFile.ReadString(LngSection,LID,'); LngINIFile.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin PathFileName:='Chinese.Lng'; LngSection:='Chinese'; Label1.Caption:= ReadLngString('LID_Label_Test1'); Label2.Caption:= ReadLngString('LID_Label_Test2'); end; procedure TForm1.English1Click(Sender: TObject); begin PathFileName:='English.Lng'; LngSection:='English'; Label1.Caption:= ReadLngString('LID_Label_Test1'); Label2.Caption:= ReadLngString('LID_Label_Test2'); end; procedure TForm1.Chinese1Click(Sender: TObject); begin PathFileName:='Chinese.Lng'; lngsection:='Chinese'; Label1.Caption:= ReadLngString('LID_Label_Test1'); Label2.Caption:= ReadLngString('LID_Label_Test2'); end; end.
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
vivi (vivi)
★☆☆☆☆
-
普通会员
2003/8/8 14:45:18
3楼:
我嘅ICQ有D朋友系香港,但系佢打嘅野乱晒码 ,请问点先可以令Q上嘅野唔乱码? thx!!!
----------------------------------------------
-
作者:
99j1 (99)
★☆☆☆☆
-
盒子活跃会员
2003/8/11 21:30:53
4楼:
minger:謝謝.我的mail:wzpwb@163.com boy:請問inifile文件怎麼用呢?而且需要語言配置文件或包嗎?
----------------------------------------------
-
作者:
boy (阿門)
★☆☆☆☆
-
盒子活跃会员
2003/8/11 21:50:43
5楼:
需要語言配置文件或包嗎?????????????我看不懂 輕鬆使用IniFiles來管理 *.ini 記得 uses 中要加上IniFiles如下 uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,inifiles; [程式碼摘要] var IniFile : TiniFile; begin IniFile:=Tinifile.create('My.ini'); //沒有指定目錄將存到windows目錄下 inifile.WriteString ('Test','save data',edit1.text); //Test為放置的Section,save data 為其中的項目 inifile.free; [補充] My.ini內容如下, [Test] save data=I Love Delphi 參考看看 http://www.delphiok.com/bcjq/
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
99j1 (99)
★☆☆☆☆
-
盒子活跃会员
2003/8/11 22:54:35
6楼:
boy:謝謝你的熱情幫助! 你的意思是是在inifile文件中配置好要用的語言文字,然後在讀取裡面要用的文字,是嗎?有沒有好一點的方法?能否自動識別操作系統的語言(是簡體或繁體),程序自動顯示和系統匹配的語言,而不會出現亂碼?(當然如果可能最好是這樣,實在不行用切換也行)
----------------------------------------------
-
作者:
boy (阿門)
★☆☆☆☆
-
盒子活跃会员
2003/8/11 23:22:33
7楼:
去判斷 WIN 那一種語系作那一類語言秀出
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
99j1 (99)
★☆☆☆☆
-
盒子活跃会员
2003/8/12 9:00:34
8楼:
請問如何實現檢查win的語種呢?
----------------------------------------------
-
作者:
2003/8/12 15:33:48
9楼:
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
-
作者:
boy (阿門)
★☆☆☆☆
-
盒子活跃会员
2003/8/12 16:17:39
10楼:
我用WIN98 D5 判断繁体或简体操作系统 procedure TForm1.Button1Click(Sender: TObject); function WhichLanguage:string; var ID:LangID; Language: array [0..100] of char; begin ID:=GetSystemDefaultLangID; VerLanguageName(ID,Language,100); Result:=String(Language); end; begin Edit1.Text:=WhichLanguage; end;
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
2003/8/12 16:33:04
11楼:
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
-