Operate;operation:='*'; Edit1.setfocus; End; Для кнопки / (Button6): procedure TForm1.Button6Click(Sender: TObject); Begin Operate; operation:='/'; Edit1.setfocus; End;
Для кнопки Quit (Button7): procedure TForm1.Button7Click(Sender: TObject); Begin Close; { Завершение работы приложения} End; 6. Теперь добавьте процедуру, которая непосредственно выполняет вычисления Operate: Procedure operate; var s:string; code:integer; N:integer; Begin s:=Form1.Edit1.text; { читаем сроку из параметра textEdit1 } Form1..clear; { очищаем Edit1 } val(s,n,code); { преобразуем строку в число} case operation of { выполняем операцию} '@': sum:=n; '+': sum:=sum+n; '-': sum:=sum-n; '*': sum:=sum*n; '/': sum:=sum/n; End; End; 7. Добавьте в модуль после служебного слова implementation объявление переменных: Var Sum:real; Const operation:char='@'; 8. Сохраните полученный проект, используя меню File\SaveAll. 9. Выполните компиляцию проекта, используя либо Ctrl-F9, либо меню Project\Compile. Если при компиляции обнаружены ошибки, то внимательно проверьте текст программы. 10. Запустите программу на выполнение, используя либо F9, либо меню Run/Run, либо кнопку Run на панели быстрого доступа. Примечание. Обратите внимание, что основные интерфейсные элементы, связанные с окном программы (такие как кнопки вызова системного меню, свертывания, развертывания, завершения программы и т.д.), при использовании среды Delphi программируются автоматически. Структура программы. Созданная в предыдущем разделе программа состоит из следующих элементов: 1. Проект программы. Он был создан средой автоматически. Для просмотра (а при необходимости и изменения) проекта необходимо использовать меню View/Project Source: Program Culc; uses { используемые модули} Forms, C_unit in 'C_unit.PAS' {Form1}; {$R *.RES} Begin Application.CreateForm(TForm1, Form1); { создание формы} Application.Run; { основной цикл программы } End. 2. Модуль C_unit.PAS: Unit Culc; interface Uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; поля-объекты Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); методы procedure Button3Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject);
|