Dir ist aber schon klar, dass die Funktionen nicht dasselbe machen oder ?
Die erste gibt bei 0, 0 TRUE zurück die zweite FALSE.
Um das gleiche zu machen, müsste sie so aussehen:
Delphi-Quellcode:
Function IsEqual1( Wert1, Wert2: Boolean ): Boolean;
Begin
Result := not (Wert1 xor Wert2);
End;