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

Label1: TLabel;

Label2: TLabel;

procedure BitBtnResetClick(Sender: TObject);

procedure BitBtnNumberClick(Sender: TObject);

procedure BitBtnOperationClick(Sender: TObject);

procedure BitBtnEqClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

v_NextOperation: boolean;

implementation

{$R *. dfm}

procedure TForm1. BitBtnResetClick(Sender: TObject);

begin

EditCalc. Text: ='';

Label1. Caption: ='';

Label2. Caption: ='';

LabelOperation. Caption: =' ';

end;

procedure TForm1. BitBtnNumberClick(Sender: TObject);

begin

if v_NextOperation

then

begin

EditCalc. Text: =TBitBtn(Sender). Caption;