delphi - 如何将 nil 传递给 var 参数？

Question

有相当多的 API 例程将指向某个变量的指针作为参数，这些变量被转换为 var 参数，但根据 Windows 帮助文件可以将其指定为 nil 指针。

作为示例，ChangeDisplaySettings 函数声明为:

function ChangeDisplaySettings(var lpDevMode: TDeviceMode; dwFlags: DWORD): Longint; stdcall;

但是 Windows 帮助文件明确指出“为 lpDevMode 参数传递 NULL 是在动态模式更改后返回到默认模式的最简单方法。”正确的翻译应该是:

function ChangeDisplaySettings(lpDevMode: PDeviceMode; dwFlags: DWORD): Longint; stdcall;

我发布这个问题和答案是为了帮助新手解决这些问题，而无需重新声明函数。我仍然记得一开始这对我来说是一个问题。

Answer 1

一种解决方案是使用指针代替 var 参数来重新声明任何此类函数，但还有一种更简单的解决方案。只需将取消引用的 nil 指针转换为正确的类型，例如，对于 ChangeDisplaySettings 示例，使用以下命令将显示模式重置为默认注册表设置:

ChangeDisplaySettings(TDeviceMode(nil^), 0);

或

ChangeDisplaySettings(PDeviceMode(nil)^, 0);

这样，您传递的 var 参数恰好位于内存地址 0 - 编译器很高兴，您可以将 nil 指针传递给 API 例程!

编辑:从 David Hefferman 的评论来看，标准做法似乎是重新声明此类例程。就我个人而言，如果可以的话，我更愿意在我自己的个人单位中使用标准声明，但出于专业工作的目的，我建议开发人员遵循标准实践。