Zahl auf ihre Natürlichkeit überprüfen

[Khabarakh]

Das habe ich mir gedacht . Trotzdem ist der Code einfach falsch, den konnte ich so nicht stehen lassen .

[add] Mein Code stimmt aber auch nicht ganz :

Delphi-Quellcode:

function InN(const AValue: Single): Boolean;
const
  Epsilon = 1E-6;
begin
  Result := (AValue > 0) and (Abs(AValue - Round(AValue)) < Epsilon);
end;

[/add]