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檔案來對應不同的語言即可。