1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:

unit pasToll;

interface

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

type
  TForm1 = class(TForm)
    btGenerate: TButton;
    btShellSort: TButton;
    btBubblesort: TButton;
    lbText1: TLabel;
    lbText2: TLabel;
    lbZeit1: TLabel;
    lbZeit2: TLabel;
    lbText3: TLabel;
    procedure btGenerateClick(Sender: TObject);
    procedure btShellSortClick(Sender: TObject);
    procedure btBubblesortClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    m : longint; // Anzahl der zu generierenden Elemente die sortiert werden sollen
    Zufallszahlen : array[1..100000] of longint;
  end;

var
  Form1: TForm1;
  const n = 100000;

implementation

{$R *.dfm}

procedure TForm1.btGenerateClick(Sender: TObject);
  var i, zufallszahl :longint;
      zahlen : array[1..n] of longint;
      erfolg : boolean;
  begin
    for i := 1 to n do
     zahlen[i] := -1;
    randomize;
    for i := 1 to n do
    begin
      erfolg := false;
      while not erfolg do
      begin
        zufallszahl := random(n) + 1;
        if zahlen[zufallszahl] = -1 then
        begin
          zahlen[zufallszahl]:= zufallszahl;
          Zufallszahlen[i] := zufallszahl;
          erfolg := true;
        end;
      end;
    end;
  end;

procedure TForm1.btShellSortClick;
  var i, j, h, v : longint;
      moment1, moment2 : TDateTime;
  begin
    moment1 := Now;
    h:= 1;
    repeat
      h := (3 * h) +1;
    until (h > N);
    repeat
    h := (h div 3);
    for i := (h+1) to N do
      begin
        v := Zufallszahlen[i];
        j := i;
        while ((j > h) and (Zufallszahlen[j-h] > v)) do
          begin
            Zufallszahlen[j]:= Zufallszahlen[j-h];
            dec(j, h);
          end;
        Zufallszahlen[j]:= v;
      end;
    until (h = 1);
    moment2 := Now;
    lbZeit1.Caption := FloatToStr(StrToFloat(Inttostr( Round((moment2 - moment1) * n))) / n) + ' Sekunden';
  end;

procedure TForm1.btBubblesortClick(Sender: TObject);
  var i, j, hilf : longint;
      moment1, moment2 : TDateTime;
  begin
    moment1 := Now;
    for i := N downto 1 do
      for j:= 1 to i do
        if (Zufallszahlen[j-1] > Zufallszahlen[j]) then
          begin
            hilf := Zufallszahlen[i];
            Zufallszahlen[i] := Zufallszahlen[i +1];
            Zufallszahlen[i +1] := hilf;
          end;
    moment2 := Now;
    lbZeit2.Caption := FloatToStr(StrToFloat(Inttostr( Round((moment2 - moment1) * n))) / (n / 10)) + ' Sekunden';
  end;

end.					

1:
2:
3:
4:
5:

[...]
QueryPerformanceCounter(moment1);
[...] //Algorithmus dessen Zeitaufwand berechnet werden soll
QueryPerformanceCounter(moment2);
lbZeit1.Caption := FloatToStr(Round((moment2 - moment1) * 10000) / 10000) + ' Sekunden';					

1:
2:
3:
4:
5:
6:
7:
8:

var
   QPF, QPC1, QPC2: Int64;

QueryPerformanceCounter(QPC1);
//Deine Messung ...
QueryPerformanceCounter(QPC2);
QueryPerformanceFrequency(QPF);
Label1.Caption := Format('%.6f Sekunden', [(QPC2 - QPC1) / QPF]);					

1:
2:

var
 dies_ist_eine_variable: mein_typ;					

1:

Format('%.6f Sekunden', [(moment2 - moment1) / QPF]);