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、どちらも「CONST」ではありません。方言/コンパイラをより適切に指定する必要があります。

Free Pascal の場合、関連するマニュアル ページへの Niculare の参照は正しいです。ただし、これはFPC固有のものです。より実用的なアプリケーションについては、複雑な型を定義する RTL の ucomplex ユニットを確認することをお勧めします。

Delphi afaik は、構造化型の一部としてのみ許可します。

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

于 2013-03-02T13:18:05.553 に答える