007 9

begin

try

liczba:^=:::strtoint(eWyswietl.Text); except on EConvertError do begin

ShowMessage ('nieprawidłowa liczba'); exit; end; end;

działanie:-razy'; bRownaSie.Click; end; end.

Dokonaliśmy sztuczki polegającej na zasymulowaniu kliknięcia klawisza równa się =. To w połączeniu z przypisaniem zmiennej działanie wartości razy powoduje, że kalkulator myśli, że użytkownik wykonał mnożenie liczby przez samą siebie. A to jak wiadomo odpowiada podniesieniu liczby do kwadratu.

unit Kalkulator 1; interface

uses

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

Dialogs, StdCtrls;

type

TForml = class(TForm) eWyswietl: TEdit;

IbPrecyzja: TComboBox; bCyfra7: TButton; bCyfra8: TButton; bCyfra9: TButton; bCyfra4: TButton; bCyfraó: TButton; bCyfraó: TButton; bCyfral: TButton; bCyfra2: TButton; bCyfra3: TButton; bCyfraO: TButton; bPrzecinek: TButton; bPotega: TButton; bDzielenie: TButton; bMnozenie: TButton; bOdejmowanie: TButton; bDodawanie: TButton; bRownaSie: TButton; bZamknij: TButton; bZeruj: TButton;

procedurę bCyfralClick(Sender: TObject); procedurę bCyfra2Click(Sender: TObject);