Zahl auf ihre Natürlichkeit überprüfen

[negaH]

Delphi-Quellcode:

function NaturlicheZahl(const Value: Double): Boolean;
begin
  Result := (Value >= 0.0) and (Frac(Value) = 0.0));
end;

Gruß Hagen