【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-fPackRecordsDemoMain.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit fPackRecordsDemoMain;
    
    interface
    
    uses
      SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
      QStdCtrls, DB, QGrids, QDBGrids, QExtCtrls, QDBCtrls, QComCtrls,
      IdGlobal;
    
    type
      TForm1 = class(TForm)
        DataSource1: TDataSource;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        Button1: TButton;
        StatusBar1: TStatusBar;
        sedtPacketRecords: TSpinEdit;
        lbLog: TListBox;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
        lStart : Longint;
        lEnd : Longint;
    
        procedure LogStartTime;
        procedure LogEndTime;
        procedure LogMsg(const sCount : Integer; const lTime : Longint);
        function GetRunTime : Longint;
      public
        { Public declarations }
        procedure ShowRecordCount(const iCount : Integer);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    uses udmPacketRecords;
    
    {$R *.xfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      dmDemo.scdsDemo.Active := False;
      LogStartTime;
      dmDemo.scdsDemo.PacketRecords := sedtPacketRecords.Value;
      dmDemo.scdsDemo.Active := True;
      LogEndTime;
      LogMsg(sedtPacketRecords.Value, GetRunTime);
    end;
    
    function TForm1.GetRunTime: Longint;
    begin
      Result := lEnd - lStart;
    end;
    
    procedure TForm1.LogEndTime;
    begin
      lEnd := GetTickCount;
    end;
    
    procedure TForm1.LogMsg(const sCount, lTime: Integer);
    var
      sMsg : String;
    begin
      sMsg := 'PacketRecords : ' + IntToStr(sCount) + ' : ' + FloatToStr(lTime / 1000.0);
      lbLog.Items.Add(sMsg)
    end;
    
    procedure TForm1.LogStartTime;
    begin
      lStart := GetTickCount;
    end;
    
    procedure TForm1.ShowRecordCount(const iCount: Integer);
    begin
      StatusBar1.Panels[0].Text := '目前用户端的笔数 : ' + IntToStr(iCount);
    end;
    
    end.