CODEWITHSUNDEEP
delphitimerdelphi-7time-measurement
celest
celest

Reputation: 1

How do I measure elapsed time in Delphi 7?

I was wondering if anyone could by any chance help me. I am very new to Delphi Programming and I have a school project due in 10 days and to be honest I have no idea what I'm doing.

What is expected of me is that I program a memory game where I am currently stuck in that I have to time how long it takes the person to play the game and then display how long it took them as a 'score' at the end.

How do I time? What component should I use and how do I program this component to time? It should start when a button is clicked and then end when the game finishes.

Any help will be highly appreciated!

Upvotes: 0

Views: 597

Answers (4)

Larry Lustig
Larry Lustig

Reputation: 50998

  1. Create a variable (for example StartTime) of TDateTime type in your form.
  2. When the user starts playing, set the variable to equal Now().
  3. When the user finishes, calculate the value of Now()-StartTime. The result is a decimal number that represents the fraction of a day that elapsed between the starting time and ending time.
  4. To convert that to the number of seconds, multiply it by (60 * 60 * 24) (which is the number of seconds in a day). From there you can display the number however you want.

Upvotes: 1

Morfic
Morfic

Reputation: 15528

PA's answer seems to be exactly what you need. because if i understood well and this is your first time working with delphi, i'd only add that:

  • Now is a function defined in SysUtils that returns the current date&time

  • you'll find the TTimer on the System component pallette (see image in link below)

  • all the procedures where you need to write the code will be automatically generated by selecting the Events tab in the Object inspector, and then double clicking in the input box (see image in link below)

https://i.sstatic.net/0iNsL.png (sorry, can't inline images because i don't have the necessary reputation yet)

from here on it hould be very easy to finish your application

good luck, G

Upvotes: 0

PA.
PA.

Reputation: 29369

You will need

1.- In your form,

  • add a timer, and set its Enabled property to False.
  • add a label to display the time
  • add a private attribute startTime to record the time when the user starts the game.

should result something like this...

type
 TForm1 = class(TForm)
  ...
  Label1: TLabel;
  Timer1: TTimer;
  ...
 private
  startTime:TDateTime;
  ....

2.- At the click event of the start button, the code to initialize the startTime attribute and kick-off the Timer.

 procedure TForm1.Button1Click(Sender: TObject);
  begin
   startTime:=Now;
   Timer1.Enabled:=True;
   ....
  end;

3.- At the Timer event of the Timer, some code to display the time counting 

 procedure TForm1.Timer1Timer(Sender: TObject);
  begin
   Label1.Caption:=TimeToStr(Now-startTime);
   ....
  end;

4.- At the click event of the finish button, or when the program considers the end of the game, some code to stop the timer.

 procedure TForm1.Button2Click(Sender: TObject);
  begin
   Timer1.Enabled:=False;
   Label1.Caption:=TimeToStr(now-startTime);
   ....
  end;

Upvotes: 2

brent
brent

Reputation: 101

Why don't you save the current time in a variable when he starts the game, and again save the time when he ends?

You can take it by the Now instruction.

var time: TDateTime;
begin
 time := now;
 ShowMessage(DateTimeToStr(time));
end;

You'll see the current time in the system.

Upvotes: 3

Related Questions