Feet To Meter in Delphi

 A simple program that I wrote will ask the user to give value in feet and convert into meter equivalent value in Delphi.

If you need a computer programmer here in the Philippines or abroad, please contact me at jakerpomperada@gmail.com 

My mobile number is 09173084360.  

You can visit my other website at www.jakerpomperada.com

Thank you very much.

Jake R. Pomperada

Freelance Computer Programmer

Program Listing

unit Feet_Meter;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var feet, meters: Double;

begin

  try

  feet := StrToFloat(Edit1.Text);

  meters := feet * 0.3048;

  Edit2.Text := FormatFloat('0.00',meters);

except

  on E: Exception do

    begin

    MessageDlg('Please enter a valid number.', mtInformation, [mbOK], 0);

    Edit1.Clear;                       // Clear the input box

    Edit1.SetFocus;

   end;

   end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit1.Text := '';  // Clear input

  Edit2.Text := '';  // Clear output

  Edit1.SetFocus

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 Application.Terminate;

end;

end.