如何在 Delphi 7 中测量经过的时间？

Question

我想知道是否有人可以帮助我。我对 Delphi 编程非常陌生，我有一个 10 天内到期的学校项目，说实话我不知道我在做什么。

对我的期望是，我编写了一个记忆游戏，我目前陷入困境，我必须计算该人玩游戏需要多长时间，然后在最后显示他们花了多长时间作为“分数”。

我如何计时？我应该使用什么组件以及如何对该组件进行编程以计时？它应该在单击按钮时开始，然后在游戏结束时结束。

任何帮助将不胜感激！

Answer 1

为什么不在他开始游戏时将当前时间保存在变量中，并在他结束时再次保存时间？

您可以通过立即指令获取。

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

您将在系统中看到当前时间。

Answer 2

您将需要

1.- 在表单中

• 添加一个计时器，并将其 Enabled 属性设置为 False。
• 添加一个标签来显示时间
• 添加一个私有属性startTime来记录用户开始游戏的时间。

应该会产生类似这样的结果...

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

2.- 在开始按钮的单击事件中，初始化 startTime 属性并启动计时器的代码。

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

3.- 在计时器的计时器事件中，一些代码用于显示时间计数

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

4.- 在完成按钮的单击事件中，或者当程序认为游戏结束时，一些代码用于停止计时器。

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

Answer 3

1. 在表单中创建 TDateTime 类型的变量（例如 StartTime）。
2. 当用户开始玩时，将变量设置为等于 Now()。
3. 当用户完成后，计算 Now()-StartTime 的值。结果是一个十进制数，表示开始时间和结束时间之间经过的一天的分数。
4. 要将其转换为秒数，请将其乘以 (60 * 60 * 24)（即一天的秒数）。从那里您可以根据需要显示号码。

Answer 4

PA 的答案似乎正是您所需要的。因为如果我理解得很好并且这是您第一次使用delphi，我只需补充一点：

• Now是SysUtils中定义的一个函数，它返回当前日期和时间

• 您将在系统组件面板上找到 TTimer（请参见下面链接中的图片）

• 通过选择对象检查器中的“事件”选项卡，然后双击输入框（参见下面链接中的图片）

< a href="https://i.sstatic.net/0iNsL.png" rel="nofollow">https://i.sstatic.net/0iNsL.png （抱歉，无法内联图像，因为我还没有必要的声誉）

从这里开始你的申请将会很容易完成，

祝你好运，
G