开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
mainunit.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：3k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

mainunit.pas：源码内容
  1. unit mainunit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ComCtrls, ExtCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     ProgressBar1: TProgressBar;
  16.     Label3: TLabel;
  17.     Button3: TButton;
  18.     Button4: TButton;
  19.     Label4: TLabel;
  20.     Timer1: TTimer;
  21.     procedure Button1Click(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure Timer1Timer(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.     procedure Button4Click(Sender: TObject);
  26.     procedure Button3Click(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.     WasteTime:Integer;
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   Form1: TForm1;
  37. implementation
  39. {$R *.dfm}
  41. procedure TForm1.Button1Click(Sender: TObject);
  42. var
  43.   V1: Variant;
  44. begin
  45.   V1 := 0;
  46.   Form1.ProgressBar1.Position := 0;
  47.   Timer1.Enabled:=True;
  48.   WasteTime:=0;
  49.   Label1.Caption:='Variant类型运行时间：';
  50.   Label1.Font.Color:=ClBlack;
  51.   while V1 < 5000000 do
  52.   begin
  53.    Inc (V1);
  54.    if (V1 mod 50000) = 0 then
  55.     begin
  56.       ProgressBar1.Position := V1 div 50000;
  57.       Application.ProcessMessages;
  58.     end;
  59.   end;
  60.   Timer1.Enabled:=False;
  61.   Label1.Caption :=Label1.Caption+IntToStr(WasteTime)+'秒.';
  62.   Label1.Font.Color:=ClRed;
  63.   WasteTime:=0;
  64. end;
  66. procedure TForm1.FormCreate(Sender: TObject);
  67. begin
  68.  WasteTime:=0;
  69. end;
  71. procedure TForm1.Timer1Timer(Sender: TObject);
  72. begin
  73.  WasteTime:=WasteTime+1;
  74. end;
  76. procedure TForm1.Button2Click(Sender: TObject);
  77. var
  78.   V1: Integer;
  79. begin
  80.   V1 := 0;
  81.   Form1.ProgressBar1.Position := 0;
  82.   Timer1.Enabled:=True;
  83.   WasteTime:=0;
  84.   Label2.Caption:='Integer整型运行时间：';
  85.   Label2.Font.Color:=ClBlack;
  86.   while V1 < 5000000 do
  87.   begin
  88.    Inc (V1);
  89.    if (V1 mod 50000) = 0 then
  90.     begin
  91.       ProgressBar1.Position := V1 div 50000;
  92.       Application.ProcessMessages;
  93.     end;
  94.   end;
  95.   Timer1.Enabled:=False;
  96.   if (WasteTime<1 )then
  97.    Label2.Caption :=Label2.Caption+'少于1秒.'
  98.   else
  99.    Label2.Caption :=Label2.Caption+IntToStr(WasteTime)+'秒.';
  100.   Label2.Font.Color:=ClBlue;
  101.   WasteTime:=0;
  102. end;
  104. procedure TForm1.Button4Click(Sender: TObject);
  105. var
  106.   V1: Double;
  107. begin
  108.   V1 := 0;
  109.   Form1.ProgressBar1.Position := 0;
  110.   Timer1.Enabled:=True;
  111.   WasteTime:=0;
  112.   Label4.Caption:='Real实型运行时间：';
  113.   Label4.Font.Color:=ClBlack;
  114.   while V1 < 5000000 do
  115.   begin
  116.     V1:=V1+1;
  117.     if (Round(V1) mod 50000) = 0 then
  118.     begin
  119.       ProgressBar1.Position :=Round(V1) div 50000;
  120.       Application.ProcessMessages;
  121.     end;
  122.   end;
  123.   Timer1.Enabled:=False;
  124.   if (WasteTime<1 )then
  125.    Label4.Caption :=Label4.Caption+'少于1秒.'
  126.   else
  127.    Label4.Caption :=Label4.Caption+IntToStr(WasteTime)+'秒.';
  128.   Label4.Font.Color:=ClYellow;
  129.   WasteTime:=0;
  130. end;
  132. procedure TForm1.Button3Click(Sender: TObject);
  133. begin
  134.  Close;
  135. end;
  137. end.