• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 469
  • Last Modified:

Display imperial units .

We have a requirement to Display Feet and Inches, it must be displayed in fractions not decimal.

Is there a component which will provide this?
  • 3
  • 3
  • 3
  • +2
1 Solution
terryamyAuthor Commented:
The Question is not on the default units but How can you ensure that the operator inputs a distance in Feet and Inches.

We have Edit Boxes and Mask Edit Boxes is there an component that will take an input of say

       3' 5½"

sorry if the original question was not clear
What about using a mask?
Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

I haven't seen anything specific for this task. As ZifNab says - you should use some kind of a mask-edit-box.

I found some interesting once though:


"TValidatorEdit works like a normal TEdit, except that it validates your inputs while you type. You can specify the characters that may not or may exclusively be entered."


" TFnpNumericEdit is an enhanced version of the standard edit control, that is designed specifically for entering numbers. This component is ideal for data entry applications and other situations where you want to restrict user input to a certain range of numbers. You may specify from 0 to 9 decimals. This component gives you the ability to define minimum and maximum values that are allowed. If an invalid entry is made, an event is fired when the component loses the focus. "

"Number edit."


"SKEdit descended from TEdit. Allows you to only enter numerical values, '.', '-'. Still allows for the use of the delete and backspace keys."


"Five components to work with famous ToolBar97. Contains enhanced TEdit97, TSpin97, TSpinEdit97, TNumEdit97 and TLinkEdit97."



Hope this isn't just a big mass a'crap...
terryamyAuthor Commented:
Thank you for the locations I will look at them with interest.

How do the USA operators input FEET and INCHES for there software applications?
I'm not from the US, and inches and feet make dizzy :)
every input I've seen uses decimals...in fact the only place that I've ever sean that you can enter fractions was in Maple.  Maple is a math program for solving complex calculas operation.  If it fits within your user interface you just might want to use two edit boxes with feet and inches.  It might be a cool option (selling point that never really gets used) to have a tricked out graphical entry field that can do fractions but any engineer will use decimals and if they are a scientist they will most likly use the metric system.  When I was in school it was always 9.81 m/s for g.  Never have I used 32 ft/s except to quickly figure out how fast a penny will be traveling after I launch it off a building into the skull of some clueless policeman :)  Actually in a program to track stock prices I saw a edit control that used fractions but it had two spincontrols one that controled the current value and another that controled the amount that would be added or subtracted for the value...so if you wanted to get 5/64 you would put in 1/16 and then 1/64
terryamyAuthor Commented:
Thank you  Greedy for your comments.

I agree that they would use decimals if they where Engineers, but I am dealing with Sales personnel!!!! and buyers.

They have stipulated that the Screen needs to be in Feet and Inches and also the drawings produced also in Feet and inches.

My main concern is to provide a clear picture of the data input screen.  I've thought of using four edit boxes arranged to show clearly the feet and inches and possibly create a calculator type form to select with radio buttons. Only ideas but it might work.

Thank you all again.
you could use this code to get the whole number and parts of the fraction.

I droped a edit box, 3 labels and a Button on a new form

procedure TForm1.Button1Click(Sender: TObject);
  MyTempInt: Integer;
    Label1.Caption := Copy( Trim(Edit1.Text), 0, (Pos(' ', Trim(Edit1.Text))-1));
    Label2.Caption := Copy( Trim(Edit1.Text), (Pos(' ', Trim(Edit1.Text))+1), (Pos('/', Trim(Edit1.Text)))-(Pos(' ', Trim(Edit1.Text))+1));
    Label3.Caption := Copy( Trim(Edit1.Text), (Pos('/', Trim(Edit1.Text))+1), (Length(Trim(Edit1.Text))-(Pos('/', Trim(Edit1.Text)))));
    MyTempInt := (StrToInt(Label1.Caption));
    MyTempInt := (StrToInt(Label2.Caption));
    MyTempInt := (StrToInt(Label3.Caption));
    MessageDlg('Damn it, Fix that crap!', mtWarning, [mbOK], 0);

I would probably use a mask and check to make sure that the edit box has a space and a / charicter in it.

You might need some code to ruduce the fractions...ie 2/4 = 1/2

value is the value to transform (in exemple 2.5)
entier is the integer value (2)
numerateur is the numerator (1)
Denominateur is the denominator (2)
the result is the rest (0)

so the fraction is 2 + 1/2

to test if the value is a fraction, test if the rest is 0. If not, the return values is the nearest fraction (2.511 -> 2 + 93/182 + 1.1e-5)

Function Fraction(Value:double; Var Entier, Numerateur, Denominateur:LongInt):Double;
      MaxFrac=256;            //max value of the denominator
      For i:=2 To MaxFrac Do
            Numerateur:=Trunc(Value * i + EqZero);
            Actuel:=Value - Numerateur / i;
            If Abs(Result)>Abs(Actuel) Then
                  If Actuel<EqZero Then
      Numerateur:=Trunc(Value * Denominateur + EqZero);
End;      {Fraction}

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 3
  • 3
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now