Курсовая работа: Створення програми-органайзера

procedure Butt_xClick(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Edit1Change(Sender: TObject; var Key: Char);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses main;

{$R *.dfm}

var x,y,numb,cyf,m:real;

oper,f:integer;

procedure TForm3.Butt_0Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '0';

f:= 1;

end

else

if Edit1.Text <> '0'

then Edit1.Text:= Edit1.Text + '0';

end;