AdvStringGrid之表脚统计实现

AdvString可以在表格尾部显示一个表尾行，设置代码如下：

1. {***************************************************************************}
2. { TAdvStringGrid demo application                                           }
3. { for Delphi & C++Builder                                                   }
4. {                                                                           }
5. { written by TMS Software                                                   }
6. {            copyright ?1996-2002                                          }
7. {            Email : [email protected]                                   }
8. {            Web : http://www.tmssoftware.com                               }
9. {                                                                           }
10. {***************************************************************************}
12. unit Uasg49;
14. interface
16. uses
17.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
18.   Dialogs, Grids, BaseGrid, AdvGrid, StdCtrls;
20. type
21.   TForm1 = class(TForm)
22.     AdvStringGrid1: TAdvStringGrid;
23.     Button1: TButton;
24.     Label1: TLabel;
25.     procedure FormCreate(Sender: TObject);
26.     procedure Button1Click(Sender: TObject);
27.     procedure AdvStringGrid1AutoInsertRow(Sender: TObject; ARow: Integer);
28.     procedure AdvStringGrid1AutoDeleteRow(Sender: TObject; ARow: Integer);
29.   private
30.     { Private declarations }
31.   public
32.     { Public declarations }
33.   end;
35. var
36.   Form1: TForm1;
38. implementation
40. {$R *.dfm}
42. procedure TForm1.FormCreate(Sender: TObject);
43. begin
44.   AdvStringGrid1.FloatingFooter.Visible := True;//设置表脚行可视为真
45.   AdvStringGrid1.FloatingFooter.ColumnCalc[0] := acCount;//第一列统计为计数
46.   AdvStringGrid1.FloatingFooter.ColumnCalc[1] := acSum; //第二列统计为求和
47.   AdvStringGrid1.FloatingFooter.ColumnCalc[2] := acAvg; //第三列统计为平均
48.   AdvStringGrid1.FloatingFooter.ColumnCalc[3] := acMin; //第四列统计为取最小值
49.   AdvStringGrid1.FloatingFooter.ColumnCalc[4] := acMax; //第五列统计为取最大值
50.   AdvStringGrid1.RandomFill(False,100);//添加表格随机数
51.   AdvstringGrid1.AutoNumberCol(1); //在第1列设置为序号列
52. end;
54. procedure TForm1.Button1Click(Sender: TObject);
55. begin
56.   AdvStringGrid1.RandomFill(false,100)
57. end;
59. procedure TForm1.AdvStringGrid1AutoInsertRow(Sender: TObject;
60.   ARow: Integer);
61. begin
62.   AdvstringGrid1.AutoNumberCol(0);//第0列设置为序号列
63. end;
65. procedure TForm1.AdvStringGrid1AutoDeleteRow(Sender: TObject;
66.   ARow: Integer);
67. begin
68.   AdvstringGrid1.AutoNumberCol(0);
69. end;
71. end.

以上设置之后，Advstringgrid控件可以实现表脚行的统计显示。