Delphi做多国语言

传说中的Delphi做多国语言有很多种，

个人我只会这一种， 小弟的初学浅薄怕忘记。所以也就记下来了。

 假设有语言文件  Multilingual.ini     内容如下：

[language]
current=4

[中文]
Name=名字
Time=时间
Language=语言
China=中国

[繁體]
Name=名字
Time=時間
Language=語言
China=中國

[English]
Name=Name
Time=Time
Language=Language
China=China

[Japanese]
Name=の名前
Time=タイム
Language=言語
China=中国の

[Russian]
Name=имя
Time=время
Language=язык
China=Китай

 

然后只要读出用英文对应的语言即可. Delphi源码如下:

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, DBClient;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    ADOQuery: TADOQuery;
    ADOConnection:TADOConnection;
  end;

var
  Form1: TForm1;

implementation