だから私は私のユニットに本当に単純な機能を持っています:
Function AzonosE(Const n1,n2:TNap):Boolean;
Begin
AzonosE:=n1=n2;
End;
('=') 演算子をこの関数に割り当てて、メイン プログラムでこの関数を次のように使用できるようにします: if n1=n2
(n1,n2:TNap;)
だから私は私のユニットに本当に単純な機能を持っています:
Function AzonosE(Const n1,n2:TNap):Boolean;
Begin
AzonosE:=n1=n2;
End;
('=') 演算子をこの関数に割り当てて、メイン プログラムでこの関数を次のように使用できるようにします: if n1=n2
(n1,n2:TNap;)
これは Pascal の標準機能ではありません。OTOH、どちらも「CONST」ではありません。方言/コンパイラをより適切に指定する必要があります。
Free Pascal の場合、関連するマニュアル ページへの Niculare の参照は正しいです。ただし、これはFPC固有のものです。より実用的なアプリケーションについては、複雑な型を定義する RTL の ucomplex ユニットを確認することをお勧めします。
Delphi afaik は、構造化型の一部としてのみ許可します。
http://docwiki.embarcadero.com/RADStudio/XE3/en/Operator_Overloading_%28Delphi%29