Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Convert mm to inch and back

Title: Convert mm to inch and back We know, that one inch contains 25.4 mm. So, to convert mm to inch, we should made division of value and 25.4. To convert inch to mm, we should made multiplication of value and 25.4. For example: // MmToInch procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/25.4); end; // InchToMm procedure TForm1.Button2Click(Sender: TObject); begin Label2.Caption:=FloatToStr(StrToFloat(Edit1.Text)*25.4); end;