FASTSCRIPT脚本实现多国语言

主程序装载脚本

procedure TForm1.FormCreate(Sender: TObject);

begin

fsScript1.Clear;

fsScript1.Parent := fsGlobalUnit;

fsScript1.AddComponent(Form1);

fsScript1.Lines.LoadFromFile('1.txt');

fsScript1.Run;

end;

1.txt文件

uses 'lang.txt'; //引用公用的语言单元

procedure button1click(sender: tobject);

begin

showmessage('hello');

end;

begin

with form1 do

begin

button1.caption := const_append;

button2.caption := const_save;

button1.onclick := @button1click;

end;

end.

Lang.txt公用的语言单元

const

const_append = '增加';

const_save = '保存';

begin

end.

 

使用不同lang.txt文件来对应不同的语言即可。