网站收录情况,网易游戏财报,南浔区住房和城乡建设局网站,网站建设的目的一个小小的 TLang 类, 实现多语言切换, 挺好的. 它的工作思路是:1、首先通过 AddLang(语言代码) 添加语言类别, 如: AddLang(en)、AddLang(cn).2、每个语言代码对应一个 TStrings 列表, 获取方式如: LangStr[en]、LangStr[cn].3、可以手动填充这些数据、可以通过 LoadFromFile(… 一个小小的 TLang 类, 实现多语言切换, 挺好的. 它的工作思路是:1、首先通过 AddLang(语言代码) 添加语言类别, 如: AddLang(en)、AddLang(cn).2、每个语言代码对应一个 TStrings 列表, 获取方式如: LangStr[en]、LangStr[cn].3、可以手动填充这些数据、可以通过 LoadFromFile() 方法载入之前 SaveToFile() 的数据(*.lng)、还可以在设计时提供的界面中操作这些数据.4、切换时修改 Lang 属性即可, 如 Lang : cn.5、它的作用域是当前工程的所有窗体及控件, 但不包括绘图控件(如 TText)、控件中的文本和窗体标题等. 测试:1、先在窗体上添加 TLang;2、添加三个 TRadioButton, 用于切换语言;3、添加 TButton、TCheckBox、TLabel 用于显示测试;4、激活 RadioButton1、Button1 和窗体的默认事件. unit Unit1;interfaceusesSystem.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects;typeTForm1 class(TForm)Lang1: TLang;RadioButton1: TRadioButton;RadioButton2: TRadioButton;RadioButton3: TRadioButton;Button1: TButton;CheckBox1: TCheckBox;Label1: TLabel;procedure FormCreate(Sender: TObject);procedure RadioButton1Change(Sender: TObject);procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.fmx}procedure TForm1.FormCreate(Sender: TObject);
beginRadioButton1.Text : English;RadioButton2.Text : 简体中文;RadioButton3.Text : 繁体中文;RadioButton1.Tag : 0;RadioButton2.Tag : 1;RadioButton3.Tag : 2;RadioButton2.OnChange : RadioButton1.OnChange;RadioButton3.OnChange : RadioButton1.OnChange;{这些标题应对应着 TLang 的相关设置}Button1.Text : Button;CheckBox1.Text : CheckBox;Label1.Text : Test;Caption : Test;{添加语言类别}Lang1.AddLang(en);Lang1.AddLang(cn);Lang1.AddLang(big);{Original: 这个原始的 TStrings 可有可无}with Lang1.Original dobeginAdd(Button);Add(CheckBox);Add(Test);end;{en 作为默认也可以不设置}with Lang1.LangStr[en] dobeginAdd(Button);Add(CheckBox);Add(Test);end;{简体中文}with Lang1.LangStr[cn] dobeginValues[Button] : 按钮;Values[CheckBox] : 复选框;Values[Test] : 测试;
// Values[Lang1.Original[0]] : 按钮;
// Values[Lang1.Original[1]] : 复选框;
// Values[Lang1.Original[2]] : 测试;end;{繁体中文}with Lang1.LangStr[big] dobeginValues[Button] : 按鈕;Values[CheckBox] : 復選框;Values[Test] : 測試;end;
end;{切换}
procedure TForm1.RadioButton1Change(Sender: TObject);
begincase TRadioButton(Sender).Tag of0: Lang1.Lang : en;1: Lang1.Lang : cn;2: Lang1.Lang : big;end;
end;{语言数据保存在 Resources 属性中, 它是嵌套的 TStrings 类型}
procedure TForm1.Button1Click(Sender: TObject);
vari: Integer;
beginfor i : 0 to Lang1.Resources.Count - 1 doShowMessage(TStrings(Lang1.Resources.Objects[i]).Text);
end;end. 转载于:https://www.cnblogs.com/dzdd/p/3346844.html
