Delphi 6之后GetTickCount在哪里？

发布于 2024-12-12 03:10:24 字数 363 浏览 0 评论 0原文

我正在尝试从 Delphi 6 迁移到 Delphi 2010，但在 Delphi 2010 中找不到 GetTickCount 函数。我有 IdGlobal、SysUtils、和我的 use 子句中的 DateUtils 。

var
  RefreshTick : Cardinal;
begin
  RefreshTick := GetTickCount;
end;

它给了我一个错误：

未声明的标识符：GetTickCount

有什么替代方法？

原文

I am trying to migrate from Delphi 6 to Delphi 2010, but I cannot find the GetTickCount function in Delphi 2010. I have IdGlobal, SysUtils, and DateUtils in my uses clause.

var
  RefreshTick : Cardinal;
begin
  RefreshTick := GetTickCount;
end;

It gives me an error:

Undeclared identifier : GetTickCount

What's an alternative to this?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

冷心人i 2024-12-19 03:10:24

GetTickCount函数是 Windows 单元的一部分。

回复收藏 0 原文

爱人如己 2024-12-19 03:10:24

正如您后来发现的，您使用的 GetTickCount 函数是由 IdGlobal 单元提供的。它与 Windows API 函数同名。 您使用的函数现在名为 Ticks。 将 Windows 添加到您的 use 子句中以获取 API 函数，或者更改您的代码以使用新名称。

名称更改似乎是在 2004 年的某个时候发生的。您应该更加努力地使您的 Indy 库保持最新状态。不要只使用 Delphi 附带的版本——在您获得它之前它可能已经过时了。始终从 Indy 的源代码管理下载最新版本。

回复收藏 0 原文

ㄟ。诗瑗 2024-12-19 03:10:24

GetTickCount 不依赖于 Delphi 的版本，因为它是一个 WinAPI 函数，它也必须存在于 Delphi 2010 中，也存在于 Delphi XE 和 XE2 中。

编辑：将 Windows 单元添加到您的使用部分。

回复收藏 0 原文

舟遥客 2024-12-19 03:10:24

在 Lazarus 1.0.12 中，接下来的命令在 Windows 中运行正常：

使用 ...Windows...

这里是代码：

Var
  initialtime, elapsedtime: DWord;
  .
begin
  .
 initialtime := Windows.GetTickCount;
  .
 elapsedtime := Windows.GetTickCount - initialtime;

 WriteLn( 'Time elapsed: ' + IntToStr(elapsedtime) + ' miliseconds');

With Lazarus 1.0.12 the next commands worked ok in windows:

Uses ...Windows...

here is the code:

Var
  initialtime, elapsedtime: DWord;
  .
begin
  .
 initialtime := Windows.GetTickCount;
  .
 elapsedtime := Windows.GetTickCount - initialtime;

 WriteLn( 'Time elapsed: ' + IntToStr(elapsedtime) + ' miliseconds');

回复收藏 0 原文

~没有更多了~