我怎样才能使计时器计数？ [关闭]答案

【问题标题】：How can i make timer to counting? [closed]我怎样才能使计时器计数？ [关闭]
【发布时间】：2014-02-09 23:32:48
【问题描述】：

我尝试过这种代码，但无法正常工作，这是什么问题？

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := Timer1.Tag + 1;
  if Timer1.Tag >= 61 then
  begin
    Timer1.Enabled := False;
  end;
end;

【问题讨论】：

我认为吸收式冰箱有问题...不，说真的，“不工作”是什么意思？在描述你的问题时要准确。它不起作用可能代表数百种含义。我不是投反对票的人，但通过提出这样的问题，你会让自己暴露一些问题。
正如 TLama 所说，您需要更加具体。正在努力完成什么。以什么方式不起作用。（顺便说一句，您可以将 Timer1 的间隔设置为您想要完全避免计数的延迟。）
@user 我们愿意提供帮助，但您的问题不够充分。这是您实质上第二次问这个问题。两次我们都要求改进，但两次您都没有回应。为了使这项工作发挥作用，您需要与我们合作。

标签： delphi timer

【解决方案1】：

代码没有任何“错误”......它工作正常。然而，你期待什么？默认情况下，放置在 TForm 上的 TTimer 将启用，因此它将启动。它的Interval默认为1000，它的Tag默认为0。启用后，此 Timer1 将“计数”从 1 到 61，然后禁用自身……通过“计数”，我的意思是它会更改其标记值……在 Enabled 设置为 False 之前最多 61。

如果这是您期望发生的事情，那么它应该会发生。

【讨论】：

-1 这应该是评论而不是答案
我没有足够的声望来发表评论......当我尝试这样做时，它说“你必须有 50 声望才能发表评论”。如果你把它记下来，我不会达到 50 的，是吗？
是的，慢拍给你。
我看你玩得很开心。我要指出两件非常简短的事情 - 1，您建议忽略原始问题，但您自己对此发表了评论 - 但没有任何帮助（而我无法评论它，所以我试图回答）和2，is user3267883 提出了一个有效的问题，它是“有什么问题？”答案是“应该没有问题，代码有效”并添加了一个问题/评论 - “这是你真正想要做的吗？”我真的认为我的“回答”比您的评论更有帮助。
但您仍然努力发表评论，只是没有提供帮助。这就是为什么你完全应该得到你缓慢的掌声——因为你拒绝了一个和你做了相同的事情的人（只是更好，并且有更好的意图）。权力必须真正转到你的头上，是吗？