delphi 主程序装载脚本
主程序装载脚本
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文件来对应不同的语言即可。
来源：http://www.cnblogs.com/key-ok/p/3443417.html
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.05695915222168 seconds