Калькулятор для 8-ой системы

[Sasuke-cun]

У меня есть рабочий калькулятор для десятичной системы исчесления, как его переделать чтобы он работал для восмеричной и выполнял простые действия?
Листинг калькулятора 10-ой системы:

unit Fcalc1;

interface

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

type
  TForm1 = class(TForm)
    BitBtnClose: TBitBtn;
    BtnAdd: TSpeedButton;
    BtnSubtract: TSpeedButton;
    BtnMultiply: TSpeedButton;
    BtnDivide: TSpeedButton;
    BtnMod: TSpeedButton;
    BtnDiv: TSpeedButton;
    BtnClear: TSpeedButton;
    LabelOperator: TLabel;
    LabelResult: TLabel;
    Bevel1: TBevel;
    EditOperand1: TEdit;
    EditOperand2: TEdit;
    EditResult: TEdit;
    BitBtn1: TBitBtn;
    procedure BtnAddClick(Sender: TObject);
    procedure BtnSubtractClick(Sender: TObject);
    procedure BtnMultiplyClick(Sender: TObject);
    procedure BtnModClick(Sender: TObject);
    procedure BtnClearClick(Sender: TObject);
    procedure BtnDivideClick(Sender: TObject);
    procedure BtnDivClick(Sender: TObject);
    procedure EditOperand1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnAddClick(Sender: TObject);
var
Op1,                       // объявление временных переменных для преобразований
Op2,                       // между числовыми и строковыми представлениями
Result:Integer;
ResultStr:String;
begin
Op1:=StrToInt(EditOperand1.Text); // преобразование строкового значения 1 (2)
Op2:=StrToInt(EditOperand2.Text); // операнда в числовое и сохранение в Op1(Op2)
Result:=Op1+Op2;             //фактическое вычисление суммы
ResultStr:=IntToStr(Result);  //преобразование обратно в строковое представление
Editresult.Text:=ResultStr;  //заставляет окно редактирования Result отображать
                  //строковое представление суммы 2 операндов,присваивая ResultStr
LabelOperator.Caption:=BtnAdd.Caption; //чтобы появлялась метка "+"
LabelResult.Caption:='='
end;

procedure TForm1.BtnSubtractClick(Sender: TObject); //Процедура вычитания
begin
EditResult.Text:=
IntToStr(StrToInt(EditOperand1.Text)-
StrToInt(EditOperand2.Text));
LabelOperator.Caption:=BtnSubtract.Caption; //метка -
LabelResult.Caption:='='
end;

procedure TForm1.BtnMultiplyClick(Sender: TObject);  // Процедура умножения
begin
EditResult.Text:=
IntToStr(StrToInt(EditOperand1.Text)*
StrToInt(EditOperand2.Text));
LabelOperator.Caption:=BtnMultiply.Caption;   //метка =
LabelResult.Caption:='='
end;

procedure TForm1.BtnDivideClick(Sender: TObject);  //процедура деления
begin
 EditResult.Text:=FloatToStr(StrToInt(EditOperand1.Text)/
 StrToInt(EditOperand2.Text));
 LabelOperator.Caption:=BtnDivide.Caption; //метка /
 LabelResult.Caption:='='
end;

procedure TForm1.BtnModClick(Sender: TObject); // Остаток от деления
begin
EditResult.Text:=
IntToStr(StrToInt(EditOperand1.Text) mod
StrToInt(EditOperand2.Text));
LabelOperator.Caption:=BtnMod.Caption; //метка mod
 LabelResult.Caption:='='
end;

procedure TForm1.BtnClearClick(Sender: TObject);
begin
EditOperand1.Text:='';    //очищает окна редактирования операндов и результата
EditOperand2.Text:='';
EditResult.Text:='';
LabelOperator.Caption:='?';
LabelResult.Caption:='?';
end;

procedure TForm1.BtnDivClick(Sender: TObject); //Целая часть числа при делении
begin
EditResult.Text:=IntTostr(StrToInt(EditOperand1.Text) div
StrToInt(EditOperand2.Text));
LabelOperator.Caption:=BtnDiv.Caption; //метка div
LabelResult.Caption:='='
end;

procedure TForm1.EditOperand1Change(Sender: TObject);
begin
EditResult.Text:='';
LabelOperator.Caption:='?';
labelResult.Caption:='?';
end;
end.

Прочтите в правилах раздела, как нужно оформлять код.
И про то, что такое флуд, тоже прочтите.

15:25

Конечно не будет наверно работать выделение целой части и остатка после деления....Хотябы подскажите и намекните)

[Utkin]

Да пусть все так и растет, добавь еще две функции - перевод с десятичной в восьмеричную и перевод с восьмеричной в десятичную системы. Ну дальше думаю понял - тебе нужно будет ввод переводить в десятичную, подсчитывать и перед выводом преобразовывать в восьмеричную. Самый легкий способ.

[Sasuke-cun]

НЕ а если нужно чтобы вводимые значения были тоже в восмеричной системе енто можно как то сделать??

[Utkin]

Сообщение от Sasuke-cun

НЕ а если нужно чтобы вводимые значения были тоже в восмеричной системе енто можно как то сделать??

Сам отслеживай, строго говоря в твоем калькуляторе тоже нет отслеживания ввода цифр (может только свойства TEdit'ов выставлены, но об этом история умалчивает).

[ОДИНОЧЕСТВО В СЕТИ]

2Sasuke-cun вы внимательнее ответы читайте

а если нужно чтобы вводимые значения были тоже в восмеричной системе

тебе нужно будет ввод переводить в десятичную, подсчитывать и перед выводом преобразовывать в восьмеричную.