AdvStringGrid之表脚统计实现

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

 

{***************************************************************************}
{ TAdvStringGrid demo application                                           }
{ for Delphi & C++Builder                                                   }
{                                                                           }
{ written by TMS Software                                                   }
{            copyright ?1996-2002                                          }
{            Email : info@tmssoftware.com                                   }
{            Web : http://www.tmssoftware.com                               }
{                                                                           }
{***************************************************************************}
unit Uasg49;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, BaseGrid, AdvGrid, StdCtrls;
type
  TForm1 = class(TForm)
    AdvStringGrid1: TAdvStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AdvStringGrid1AutoInsertRow(Sender: TObject; ARow: Integer);
    procedure AdvStringGrid1AutoDeleteRow(Sender: TObject; ARow: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvStringGrid1.FloatingFooter.Visible := True;//设置表脚行可视为真
  AdvStringGrid1.FloatingFooter.ColumnCalc[0] := acCount;//第一列统计为计数
  AdvStringGrid1.FloatingFooter.ColumnCalc[1] := acSum; //第二列统计为求和
  AdvStringGrid1.FloatingFooter.ColumnCalc[2] := acAvg; //第三列统计为平均
  AdvStringGrid1.FloatingFooter.ColumnCalc[3] := acMin; //第四列统计为取最小值
  AdvStringGrid1.FloatingFooter.ColumnCalc[4] := acMax; //第五列统计为取最大值
  AdvStringGrid1.RandomFill(False,100);//添加表格随机数
  AdvstringGrid1.AutoNumberCol(1); //在第1列设置为序号列
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  AdvStringGrid1.RandomFill(false,100)
end;
procedure TForm1.AdvStringGrid1AutoInsertRow(Sender: TObject;
  ARow: Integer);
begin
  AdvstringGrid1.AutoNumberCol(0);//第0列设置为序号列
end;
procedure TForm1.AdvStringGrid1AutoDeleteRow(Sender: TObject;
  ARow: Integer);
begin
  AdvstringGrid1.AutoNumberCol(0);
end;
end.
以上设置之后，Advstringgrid控件可以实现表脚行的统计显示。