FASTSCRIPT脚本实现多国语言
2010-07-06 10:14
232 查看
主程序装载脚本
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文件来对应不同的语言即可。
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文件来对应不同的语言即可。
相关文章推荐
- FASTSCRIPT脚本实现多国语言
- ASP.NET中多国语言的实现
- WinForm中多国语言的实现
- MFC的多国语言界面的实现
- VimScript脚本语言学习------常用的内置函数---(操纵光标)
- WinForm中多国语言的实现
- python脚本语言实现hosts自动更新
- Delphi如何实现多国语言
- Java系列--第六篇 基于Maven的SSME之多国语言实现
- 【原创】多国语言实现
- 多国语言实现
- 用winrar的脚本语言,实现程序的自动打包
- VimScript脚本语言学习------常用的内置函数---(变量相关)
- .NET 动态脚本语言Script.NET系列文章汇总 非常精彩的应用举例
- 微软为Ajax 发明C#衍生新脚本语言Script#
- 对html实现监听 script脚本
- PostgreSQL 多国语言支持的实现
- VimScript脚本语言学习------常用的内置函数---(操纵Float)
- MFC的多国语言界面的实现
- VBS是基于Visual Basic的脚本语言,全称是:Microsoft Visual Basic Script Edition