Контрольная работа: Современные операционные системы и системное программирование в Delphi

end

end

Calc

unit Calc;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

EditCalc: TEdit;

BitBtn0: TBitBtn;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtnPlus: TBitBtn;

BitBtnMinus: TBitBtn;

BitBtnMultiple: TBitBtn;

BitBtnDivide: TBitBtn;

BitBtnEq: TBitBtn;

BitBtnReset: TBitBtn;

BitBtnDecimal: TBitBtn;

LabelOperation: TLabel;