Zahl auf ihre Natürlichkeit überprüfen

[Khabarakh]

Zitat von tigerman33:

Um zu prüfen ob eine (Fließkomma-)Zahl eine natürliche Zahl ist, müsste folgendes gehen:

Delphi-Quellcode:

var Zahl: real;
begin
  if Zahl - trunc(Zahl) = 0 then
    ShowMessage('Natürlich');
end;

Fließkommazahlen sollte man nie auf Gleichheit überprüfen!

Delphi-Quellcode:

const
  Epsilon = 1E-6;

...

  if Abs(Value - Round(Value)) < Epsilon then
    ...

http://www.delphipraxis.net/internal...=242355#242355