main.pas

来自「《Kylix程序设计》一书中附带的例程源代码」· PAS 代码 · 共 90 行

unit Main;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls, QComCtrls, QExtCtrls;

type
  TFrmMain = class(TForm)
    BvlSeperate: TBevel;
    BtnVariant: TButton;
    BtnInteger: TButton;
    PrgBarVariant: TProgressBar;
    PrgBarInteger: TProgressBar;
    LblVariant: TLabel;
    LblInteger: TLabel;
    procedure BtnVariantClick(Sender: TObject);
    procedure BtnIntegerClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.xfm}

procedure TFrmMain.BtnVariantClick(Sender: TObject);
var
  n1, n2: Variant;
  t1, t2: TDateTime;
  str: string;
begin
  n1 := 0;
  n2 := 0;
  t1 := Now;
  PrgBarVariant.Position := 0;
  while n1 < 10000000 do
  begin
    n2 := n2 + n1;
    if ( n1 mod 100000 ) = 0 then
    begin
      PrgBarVariant.Position := n1 div 100000;
      t2 := Now;
      str := 'Use Variant: ' + FormatDateTime( 'nn:ss', t2 - t1 ) + 's.';
      LblVariant.Caption := str;
      Application.ProcessMessages();
    end;
    Inc( n1 );
  end;
  t2 := Now;
  str := 'Use Variant: ' + FormatDateTime( 'nn:ss', t2 - t1 ) + 's.';
  LblVariant.Caption := str;
end;

procedure TFrmMain.BtnIntegerClick(Sender: TObject);
var
  n1, n2: Integer;
  t1, t2: TDateTime;
  str: string;
begin
  n1 := 0;
  n2 := 0;
  t1 := Now;
  PrgBarInteger.Position := 0;
  while n1 < 10000000 do
  begin
    n2 := n2 + n1;
    if ( n1 mod 100000 ) = 0 then
    begin
      PrgBarInteger.Position := n1 div 100000;
      t2 := Now;
      str := 'Use Integer: ' + FormatDateTime( 'nn:ss', t2 - t1 ) + 's.';
      LblInteger.Caption := str;
      Application.ProcessMessages();
    end;
    Inc( n1 );
  end;
  t2 := Now;
  str := 'Use Integer: ' + FormatDateTime( 'nn:ss', t2 - t1 ) + 's.';
  LblInteger.Caption := str;
end;

end.