在delphi中怎么对实数取模?!在Vc中可以用fmod(x,y)