0

所以我的单位有一个非常简单的功能:

Function AzonosE(Const n1,n2:TNap):Boolean;
Begin
    AzonosE:=n1=n2;
End;

我想将 ('=') 运算符分配给这个函数,这样我就可以在我的主程序中以这种方式使用这个函数:if n1=n2(n1,n2:TNap;)

4

1 回答 1

1

这不是标准的 Pascal 功能。OTOH,afaik 也不是“CONST”。您需要更好地指定您的方言/编译器。

对于 Free Pascal,Niculare 对相关手册页的引用是正确的。虽然它是 afaik FPC 特定的。对于更实际的应用程序,最好查看定义复杂类型的 RTL 中的 ucomplex 单元。

Delphi afaik 只允许它作为结构化类型的一部分:

http://docwiki.embarcadero.com/RADStudio/XE3/en/Operator_Overloading_%28Delphi%29

于 2013-03-02T13:18:05.553 回答