Showing posts with label decimal to binary in delphi. Show all posts
Showing posts with label decimal to binary in delphi. Show all posts

Sunday, September 4, 2016

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.