This is actually one of the rare cases where I'd (1) use str to convert the decimal to a string with the largest number of decimal places I will ever need, then (2) check it really is a decimal by making sure pos('.', mystring) is greater than zero (and remember that not all nations use '.' as a decimal). and then (3) chew off zeroes from the right hand side until I meet a decimal point (which should also be chewed) or a non-zero digit.

But there's probably a simpler way.

I think that would indeed be the best way to do it; One remark though, I think Borland Pascal always uses a dot as decimal separator, regardless of any system configuration.

Regards,
Bert Vingerhoets
vingerhoetsbert@hotmail.com
http://student.vub.ac.be/~bvingerh/
Don't worry what people think about you. They're too busy wondering what you think about them.

... or you can use the Int() function to determine how to display the Real:

Function Whole(Source : Real) : Boolean;
Begin
  If (Int(Source) <> Source) then
    Whole := False
  Else
    Whole := True;
End;

Good Luck  §;O)


Jakob

Thank you for you help.  I will try and use the string solution tonight.  Your help is appreciated.