delphi - 如何调用存储在Unit中的函数？

Question

我创建了一个新单元，因为我需要从所有表单调用一些函数，并且我将单元名称放在 uses 列表中。

我在设计时没有收到任何错误，但当我尝试启动应用程序时，我收到 [DCC Error] UnitForm1.pas(64): E2003 Undeclared identifier: 'TaskBarHeight'

请帮忙。谢谢。

Answer 1

TaskBarHeight 是否在单元的 interface 部分声明？

unit Unit4;

interface

uses Windows;

procedure HighBeep;

function Sum(const A, B: integer): integer;

const
  alpha = 10;

implementation

const
  beta = 20;

procedure HighBeep;
begin
  Beep(800, 500);
end;

procedure LowBeep;
begin
  Beep(400, 500);
end;

function Sum(const A, B: integer): integer;
begin
  result := A + B;
end;

end.

在上面的例子中，只有函数HighBeep在其他单元中可见。此外，只有常数 alpha 是。函数 sum 也可见。