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]