Delphi - Создать класс для вычисления суммы...

[Danara]

Delphi - Создать класс для вычисления суммы и разности двух положительных натуральных чисел, диапазон значений от 1 до 10. Результаты вычисления выводить римскими числами.

Спасибо большое!

[XeruH]

Так что-ли?

TMyCalcClass = class
  private
    FFirstNumber: Byte;
    FSecondNumber: Byte;

    function CheckNumber(const lNumber: Byte): Boolean;
    procedure SetFirstNumber(const lValue: Byte);
    procedure SetSecondNumber(const lValue: Byte);
  public
    property FirstNumber: Byte read FFirstNumber write SetFirstNumber;
    property SecondNumber: Byte read FSecondNumber write SetSecondNumber;

    function CalcSumm: Byte;
    function CalcDiff: Byte;
end;

function TMyCalcClass.CheckNumber(const lNumber: Byte): Boolean;
begin
  Result := (lNumber >=1) and (lNumber <= 10);
end;

procedure TMyCalcClass.SetFirstNumber(const lValue: Byte);
begin
  if CheckNumber(lValue) then
    FFirstNumber := lValue;  
end;

procedure TMyCalcClass.SetSecondNumber(const lValue: Byte);
begin
  if CheckNumber(lValue) then
    FSecondNumber := lValue;  
end;

function TMyCalcClass.CalcSumm: Byte;
begin
  Result := FFirstNumber + FSecondNumber;
end;

function TMyCalcClass.CalcDiff: Byte;
begin
  Result := FFirstNumber - FSecondNumber;
end;

[Danara]

Сообщение от XeruH

Так что-ли?

Мммм... спасибо... возможно... А можно посмотреть в целом с файликом?