008 8

procedurę bCyfra3CIick(Sender: TObject); procedurę bCyfra4Click(Sender: TObject); procedurę bCyfra5Click(Sender: TObject); procedurę bCyfra6Click(Sender: TObject); procedurę bCyfra7Click(Sender: TObject); procedurę bCyfra8Click(Sender: TObject); procedurę bCyfra9Click(Sender: TObject); procedurę bPrzecinekClick(Sender: TObject); procedurę bDodawanieClick(Sender: TObject); procedurę bOdejmowanieClick(Sender: TObject); procedurę bMnozenieClick(Sender: TObject); procedurę bDzielenieClick(Sender: TObject); procedurę bRownaSieClick(Sender: TObject); procedurę bZerujClick(Sender: TObject); procedurę bPotegaClick(Sender: TObject); private

{ Private declarations } pubiic

{ Public declarations } end;

var

Forml: TForml; liczba:double; dzialanieistring; noweDzialanie:string;

implementation

{$R*.dfm}

procedurę TForml .bCyfralClick(Sender: TObject); begin

e Wyświetl.Text:=e Wyświetl.Text+' 1'; end;

procedurę TForml ,bCyfra2Click(Sender: TObject); begin

e Wyświetl.Text:=e Wyświetl.Text+'2'; end;

procedurę TForml.bCyfra3Click(Sender: TObject); begin

eWyswietl.Text:^:=eWyswietl.Text+'3';

end;

procedurę TForml.bCyfra4Click(Sender: TObject); begin

eWyswietl.Text:^:=e Wyświetl.Text+'4’; end;

procedurę TForml.bCyfra5Click(Sender: TObject);