1:

FloatToStr( ( 1/((Now-NL)*24*60*60) )); //(Now und NL sind vom Typ TDateTime)                    

1:
2:
3:

FloatToStr( ( 1/((Now-NL)*24*60*60) )); //liefert korrekt 9,1762...
FloatToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91
IntToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91                    

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

Function Runden(Zahl: Extended): Integer;
  var Ganzzahl: Integer;
      PosNeg: Integer;
  begin
  if Zahl>0 then PosNeg := 1 else PosNeg := -1;
  Ganzzahl := Trunc(Zahl);
  if Frac(Zahl)>=0.5 then Result := Ganzzahl+(1*PosNeg) else Result := Ganzzahl;
  end;                    

1:
2:

FloatToStr(Runden( 1/((Now-NL)*24*60*60) ); //liefert 91
IntToStr(Runden( 1/((Now-NL)*24*60*60) ); //liefert 91                    

1:

FloatToStr(Trunc( 1/((Now-NL)*24*60*60) ); //liefert 91                    

1:
2:
3:
4:
5:

var C: Extended;
begin
C := 1/((Now-NL)*24*60*60);
IntToStr( Runden( C ) ); //liefert 91
end;                    

1:
2:

FloatToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91
IntToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91                    

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

var nl:tdatetime;
begin
     nl:=now-1/9.1762/86400;
     memo1.lines.add(FloatToStr( ( 1/((Now-NL)*24*60*60) ))); //liefert korrekt 9,1762...
     memo1.lines.add(FloatToStr(Round ( 1/((Now-NL)*24*60*60)))); //liefert 9 !!!!
     memo1.lines.add(IntToStr(Round ( 1/((Now-NL)*24*60*60)))); //liefert 8  !!!!
     memo1.lines.add(floattostr(1/9.1762/86400));
end;                    

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  NL: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var T: String;
begin
   T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) )); ;
   NL := Now;
   Canvas.TextOut(0, ClientHeight- Canvas.TextHeight(T), T);
   //weitere befehle
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var Time1, Time2, Freq: Int64;
    wert : extended;
begin
    QueryPerformanceFrequency(Freq);
    QueryPerformanceCounter(Time1);

    //hier Deine Zeichnung

    QueryPerformanceCounter(Time2);
    wert:=1000*(Time2-Time1)/freq;
    label1.caption:=floattostrf(wert,ffgeneral,4,3)+' ms';
    label2.caption:=floattostrf(1000/wert,ffgeneral,4,3)+' Bilder je s';
end;                    

1:
2:
3:
4:
5:

while(true)
begin
  doSth();
  Application.ProcessMessages();
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Timer1Timer(Sender: TObject);
var T: String;
begin
   T := FloatToStr( ((Now-NL)*24*60*60) ); 
   memo1.lines.add(T);
   T := 'FpS: '+ FloatToStr( 1/((Now-NL)*24*60*60) );
   memo1.lines.add(T);
   T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) ));
   memo1.lines.add(T);
   NL := Now;
   timer1.enabled:=false;
   //weitere befehle
end;                    

1:
2:
3:

0,0160002149641514
FpS: 62,4991603075651
FpS: 62                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

interface

var
  PROCABBRUCH : boolean = FALSE;
implementation


procedure Form1.Btn1Click(Sender : TObject);
begin
  PROCABBRUCH := true;  
end;
:
:

//Prozedur zur Zeitmessung:

  ok := TRUE;
  While ok do
  begin
    Application.ProcessMessages;
    if PROCABBRUCH then Exit;
    (Zeitmessungsroutine);
  end;                    

1:
2:
3:
4:
5:

    procedure DoIt;
    begin
    T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) ));
    NL := Now;
    end;                    

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

if FesteFpS then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  DoIt;
  end;                    

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

if FesteFpS then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  //DoIt;
  end;                    

1:
2:
3:
4:

   T := 'FpS: '+ FloatToStr( ( 1 / ((Now-NL)*24*60*60) )); //= FpS: 62,4991603075651
   T := 'FpS: '+ FloatToStr( Round( 1 / ((Now-NL)*24*60*60) )); //= 62
   T := 'FpS: '+ FloatToStr( Round( 1 / ((Now-NL)*24*60*60) )/1);//= 62
   T := 'FpS: '+ FloatToStr( Round( 1 / ((Now-NL)*24*60*60) )/10); //=6,2                    

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

if FesteFpS then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  DoIt;
  end;                    

1:
2:
3:
4:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Den Quelltext hierzwischen stehen haben
end;                    

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    FesteFpS: TCheckBox;
    FpSRate: TEdit;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  NL: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var T: String;
    C: Extended;
  procedure DoIt;
    begin
    T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) ));
    NL := Now;
    end;
begin
if FesteFpS.Checked then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  DoIt;
  end;
Canvas.TextOut(10, ClientHeight-Canvas.TextHeight(T), T);
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

// uses MMSystem
procedure TMainform.Button1Click(Sender: TObject);
var
  Zeit  : TDateTime;
  Zeit1 : TDateTime;
  Zeit2 : TDateTime;
begin
  Zeit1 := TimeGetTime;
  Sleep(24);
  Zeit2 := TimeGetTime;
  Zeit := (Zeit2 - Zeit1);
  if Zeit > 0 then
    Label1.Caption := FloatToStr(Round((1 / Zeit) * 1000))
  else
    Label1.Caption := 'Zeit = 0!';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var Time1, Time2, Freq: Int64;
    wert : extended;
begin
    QueryPerformanceFrequency(Freq);
    QueryPerformanceCounter(Time1);

    //hier Deine Zeichnung

    QueryPerformanceCounter(Time2);
    wert:=1000*(Time2-Time1)/freq;
    label1.caption:=floattostrf(wert,ffgeneral,4,3)+' ms';
    label2.caption:=floattostrf(1000/wert,ffgeneral,4,3)+' Bilder je s';
end;