unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
crono:cardinal;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
crono:=GetTickCount;
for i:=0 to high(integer) do
begin
end;
button1.Caption:=FloatToStr((GetTickCount-crono)/1000) ; // result in 3.822 second (i3 4150)
end;
procedure TForm1.Button2Click(Sender: TObject);
var
x,y:integer;
begin
crono:=GetTickCount;
image1.Width:=756;
image1.Height:=425;
image1.Picture.Bitmap.SetSize(756,425);
for x:=0 to image1.Width do
begin
for y:=0 to image1.Height do
begin
image1.Canvas.Pen.Color:=x*y mod 65535;
image1.Canvas.Line(0,0,x,y);
end;
end;
button2.Caption:=FloatToStr((GetTickCount-crono)/1000) ; // result in 1.716 ( İntel Hd 4400)
end;
end.