Decimal To Binary Converter in Delphi

I wrote this simple program that will ask the user to give a number in decimal and then our program will convert the number to its binary equivalent using Delphi as my programming language.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

 
My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

dec.pas

unit dec;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Label3: TLabel;

    Button2: TButton;

    Label4: TLabel;

    Label5: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

     function DecToBinStr(N: Integer): string;

  end;

var

  Form1: TForm1;

    Negative: Boolean;

implementation

{$R *.dfm}

function TForm1.DecToBinStr(N: Integer): string;

var

  S: string;

  i: Integer;

begin

  if N<0 then

    Negative:=True;

  N:=Abs(N);

  for i:=1 to SizeOf(N)*8 do

  begin

    if N<0 then

      S:=S+'1'

    else

      S:=S+'0';

    N:=N shl 1;

  end;

  Delete(S, 1, Pos('1', S)-1);

  if Negative then

    S:='-'+S;

  Result:=S;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

      Label3.Caption:= 'The equivalent value of ' + Edit1.Text

      + ' to Binary is ' + DecToBinStr(StrToInt(Edit1.Text))+'.';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.text :='';

Label3.Caption := '';

Edit1.SetFocus

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

button1.Hint := 'Click here to convert decimal number into its binary equivalent.';

button1.ShowHint := true;

end;

end.