Class Tprofiler (unit Z_prof)

Inherits from

TForm

Constructors



Functions

procedure ClearbuttonClick(Sender: TObject);

MHz

procedure FormCreate(Sender: TObject);

keep a copy for the overhead time subtraction

procedure mark(nr:integer;aactive:boolean);


procedure RadioGroup1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton2Click(Sender: TObject);


procedure calibrateCPU;


procedure CorrectForOverhead;


procedure gettime(nr:integer);


function gettimediff(nr:integer):extended;


procedure tablecontent(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


Properties

Events

Variables

Clearbutton : TSpeedButton;


DrawGrid1 : TDrawGrid;


fdvisible : boolean;


frvisible : boolean;


Label1 : TLabel;


Panel1 : TPanel;


RadioGroup1 : TRadioGroup;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


rmark : array[1..nmarks] of markrecord;



Constructors


Functions


procedure ClearbuttonClick(Sender: TObject);

MHz


procedure FormCreate(Sender: TObject);

keep a copy for the overhead time subtraction


procedure mark(nr:integer;aactive:boolean);


procedure RadioGroup1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton2Click(Sender: TObject);


procedure calibrateCPU;


procedure CorrectForOverhead;


procedure gettime(nr:integer);


function gettimediff(nr:integer):extended;


procedure tablecontent(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


Properties


Events


Variables


Clearbutton : TSpeedButton;


DrawGrid1 : TDrawGrid;


fdvisible : boolean;


frvisible : boolean;


Label1 : TLabel;


Panel1 : TPanel;


RadioGroup1 : TRadioGroup;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


rmark : array[1..nmarks] of markrecord;