FastReport

delphi2010中FastReport的安装方法

一，准备工作。
1.1安装Delphi2010。
1.2获得FastReport 4.9.31。
二，FastReport文件夹下LibD14目录添加到Delphi中的Library Path
步骤：1，打开Delphi2010，打开菜单Tools->Options。 2，左侧点击Delphi Options的+号，点击Library-win32
            3，在右侧框中找到Library Path，将FastReport->LibD14路径粘贴至该文本框的末尾，粘贴之前输入分号(;)。
三，生成FastReport汉化文件
步骤：1，运行"recompile.exe"文件，设置相应选项，我的设置如下：
           1，Select the compiler 设置为 Embarcadero Rad Studio 2010(Delphi，C++)。(默认值)
           2，Select the FastReport Version 设置为 Enterprise。(默认值)
           3，Select the TeeChart version 设置为 TeeChartStd。(默认值)
           4，What you want to do 下的 Change language To: 设置为 Chinese 。（自己选择）
四，编译运行时包。
步骤：1，在Delphi中打开(File->Open)菜单。
            2，编译，打开如下DPK后，在Delphi中的IDE右侧Project Manager选中该Project右键单击，然后点击Compile。
                           - FastReport\LibD14\fqb140.dpk
                           - FastReport\LibD14\fs14.dpk
                           - FastReport\LibD14\fsDB14.dpk
                           - FastReport\LibD14\fsBDE14.dpk
                           - FastReport\LibD14\fsADO14.dpk
                           - FastReport\LibD14\fsIBX14.dpk
                           - FastReport\LibD14\frx14.dpk
                           - FastReport\LibD14\frxDB14.dpk
                           - FastReport\LibD14\frxADO14.dpk
                           - FastReport\LibD14\frxBDE14.dpk
                           - FastReport\LibD14\frxIBX14.dpk
                           - FastReport\LibD14\frxDBX14.dpk
                           - FastReport\LibD14\frxe14.dpk
                           - FastReport\LibD14\frxcs14.dpk 这个是FastReport的Client/Server，如不需要则不需编译此文件
四，编译并安装Dcl。
步骤：1，在Delphi中打开(File->Open)菜单。
            2，编译，打开如下DPK后，在Delphi中的IDE右侧Project Manager选中该Project右键单击，然后点击Compile，接着在弹出的右键菜单中点击Install。
                           - FastReport\LibD14\dclfs14.dpk
   　　　　        - FastReport\LibD14\dclfsDB14.dpk
                           - FastReport\LibD14\dclfsBDE14.dpk
                           - FastReport\LibD14\dclfsADO14.dpk
                           - FastReport\LibD14\dclfsIBX14.dpk
                           - FastReport\LibD14\dclfrx14.dpk
                            - FastReport\LibD14\dclfrxDB14.dpk
                           - FastReport\LibD14\dclfrxADO14.dpk
                           - FastReport\LibD14\dclfrxBDE14.dpk
                           - FastReport\LibD14\dclfrxIBX14.dpk
                           - FastReport\LibD14\dclfrxDBX14.dpk
                           - FastReport\LibD14\dclfrxe14.dpk
                          - FastReport\LibD14\dclfrxcs14.dpk 这个是FastReport的Client/Server，如不需要则不需编译、安装此文件。
五、安装结束。

View Code

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文件来对应不同的语言即可。

View Code