盒子论坛 v2.1

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的語種呢?
----------------------------------------------
-

作者：

emscool (cool)	★☆☆☆☆	-
	禁用账号

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 ★

作者：

emscool (cool)	★☆☆☆☆	-
	禁用账号

2003/8/12 16:33:04

11楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
-

信息

登陆以后才能回复