Maybe this will help -- found via Google's Code Search, looking for "dectofraction" as a possible function / procedure name. Other yielded promising results too.
http://www.delphiforfun.org/Programs/Download/DecToFractionSource.zip ----- Original Message ----- From: Victor Fraenckel <[EMAIL PROTECTED]> To: Delphi-en <[email protected]> Date: Tue, 18 Dec 2007 06:04:20 -0500 Subject: [delphi-en] Looking for a function > 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 > > > >
