anontiming_mainform.pas

来自「source code for the Marco Cantu s book D」· PAS 代码 · 共 66 行

unit AnonTiming_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFormAnonTiming = class(TForm)
    btnClassic: TButton;
    Memo1: TMemo;
    btnAnon: TButton;
    btnTicks: TButton;
    procedure btnClassicClick(Sender: TObject);
    procedure btnAnonClick(Sender: TObject);
    procedure btnTicksClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAnonTiming: TFormAnonTiming;

implementation

{$R *.dfm}

const
  MaxLoop2 = 1000000;

function TimeCode (nLoops: Integer; proc: TProc): string;
var
  t1: TDateTime;
  I: Integer;
begin
  t1 := Now;
  for I := 1 to nLoops do
    proc;
  t1 := now - t1;
  Result := FormatDateTime('nn:ss.zzz', t1);
end;

function TickCode (nLoops: Integer; proc: TProc): string;
var
  nTicks: Integer;
  I: Integer;
begin
  nTicks := GetTickCount;
  for I := 1 to nLoops do
    proc;
  nTicks := GetTickCount - nTicks;
  Result := Format ('%d', [nTicks]);
end;


procedure TFormAnonTiming.btnAnonClick(Sender: TObject);
var
  str1: string;
  str2: AnsiString;
begin
  Memo1.Lines.Add ('Anonymous');

  str1 := 'Marco Cant