unit UnitConversions;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmConversions = class(TForm)
    btnReset: TButton;
    btnBinaire: TButton;
    btnOctal: TButton;
    btnQuit: TButton;
    lblValeur: TLabel;
    edtValeur: TEdit;
    procedure btnQuitClick(Sender: TObject);
    procedure btnBinaireClick(Sender: TObject);
    procedure btnOctalClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);

  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FrmConversions: TFrmConversions;

implementation

{$R *.dfm}

FUNCTION Exposant(base : Integer; exposant:Integer) :Integer;
var temp : Integer;
Begin
temp:=base;
if exposant=0 Then
base:=1
Else
while exposant >1 DO
  Begin
  base:=base*temp;
  exposant:=exposant-1
  end;
  Result:=base;
end;

procedure TFrmConversions.btnQuitClick(Sender: TObject);
begin
Application.Terminate;
end;


procedure TFrmConversions.btnBinaireClick(Sender: TObject);
var
long,binaire,i,iRC:Integer;

begin

VAL (edtValeur.Text,i,iRC);
if iRC<>0 THEN Showmessage ('Veuillez entrer un nombre svp')
Else

Begin
binaire:=0;
long :=length(edtValeur.Text)-1;
i:=0;
while long >=0 DO
  Begin
    i:=i+1;
    binaire:=binaire +(StrtoInt(edtValeur.Text[i]) * Exposant(2,long));
    long:=long-1;
  End;
Showmessage(InttoStr(binaire));
End;
end;

procedure TFrmConversions.btnOctalClick(Sender: TObject);
var
long,binaire,i,iRC:Integer;

begin

VAL (edtValeur.Text,i,iRC);
if iRC<>0 THEN Showmessage ('Veuillez entrer un nombre svp')
Else

Begin
binaire:=0;
long :=length(edtValeur.Text)-1;
i:=0;
while long >=0 DO
  Begin
    i:=i+1;
    binaire:=binaire +(StrtoInt(edtValeur.Text[i]) * Exposant(8,long));
    long:=long-1;
  End;
Showmessage(InttoStr(binaire));
End;
end;

procedure TFrmConversions.btnResetClick(Sender: TObject);
begin
edtValeur.Text:=' ';
end;

end.