fart spørgsmål

Kald clock.
Kald funktionen en million gange (eller en milliard gane hvis det er nødvendigt).
Kald clock igen.
Udregn forskellen på de to.

Du skal bruge funktionen GetTickCount

Kald GetTickCount før du går ind i din funktion og efter træk derefter de to Tick værdier fra hinanden og du har tiden i milisekunder, hvis din funktion tager kortere tid end 1 milisekund kan du kalde den f.eks 1000 gange og så aflæse din Tick

Delphi hjælp om TickCount:

The GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.

Du får lige et eksempel her:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function MyFunction(i: integer): Boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

function TForm1.MyFunction(i:integer): Boolean;
begin
  Label1.Caption:= IntToStr(i);
  //Det som funktionen skal udfører
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  StartTick, StopTick: Cardinal;
  i: Integer;
begin
  StartTick:= GetTickCount;
  for i:= 1 to 1000 do
    MyFunction(i);
  StopTick:= GetTickCount;
  ShowMessage('Tiden som gik: '+IntToStr(StopTick-StartTick)+' [msek]');
end;

end.

takker for det..

Vær lige opmærksom på, at dit program dør, hvis din computer har stået tændt i mere end ca. 45 dage

justincase> Nix din tæller begynder bare på 0 igen