قياس الزمن

[shagrouni]

باستخدام الأمر GetTickCount

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  t1, t2: cardinal;
  i, a: integer;
begin
  t1 := GetTickCount;
  for i := 0 to 10000 do
  begin
    a := i + 1;
    caption := IntToStr(i);
  end;
  t2 := GetTickCount - t1;

  caption := IntToStr(t2) + ' MilliSeconds';

end; 


أو الأمر MilliSecondSpan