Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi 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

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#11 Re: Zahl auf ihre Natürlichkeit überprüfen 9. Okt 2005, 14:06 markieren Delphi-Quellcode: function NaturlicheZahl(const Value: Double): Boolean; begin Result := (Value >= 0.0) and (Frac(Value) = 0.0)); end; Gruß Hagen
	Zitat