[delphi-en] Looking for a function

[Victor Fraenckel]

I would appreciate hearing from anyone who could point me to a place to 
grab a function the takes a floating point number and returns a string 
that represents that number as a integer (maybe) and a fraction like 
3.25 = 3 1/4. Like this _perhaps_:
var
  myfrac :string;

myfrac = Num2Frac(num : single);

My usage is for english units commonly found in carpentry like 
sixteenths, eighths, quarters and halves.

Any enlightenment will be appreciated.

Vic Fraenckel
KC2GUI
victorf ATSIGN windreader DOT com