!************************************** ! Name: Foot To Inch Solver in Delphi ! Description:A very simple program that I wrote in Borland International Delphi programming language that will ask the user to give a value in foot and then it will convert the given value into inch equivalent. Add me at Facebook my addressis jakerpomperada@gmail.com and jakerpomperada@yahoo.com. My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com. My mobile number here in the Philippines is 09173084360. ! By: Jake R. Pomperada ! ! ! Inputs:None ! ! Returns:None ! !Assumes:None ! !Side Effects:None !************************************** unit foot_to_inch; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Label5: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} Var inch : real; procedure TForm1.Button1Click(Sender: TObject); begin inch:=strtoint(Edit1.text) * 12; label5.caption := Edit1.text + ' Foot is equivalent to ' + FloatToStr(inch) + ' Inche(s).'; end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.text :=''; label5.caption := ''; edit1.setfocus; end; end.