Запуск программы на выполнение
 |
Программа начинает выполняться по команде меню Run (F9) или по нажатию кнопки Run на панели инструментов.
Если при запуске окажется, что некоторые модули проекта модифицировались со времени построения исполняемого файла, автоматически запускается компилятор и компоновщик построит исполняемый файл заново.
Исполняемый файл и файлы откомпилированных модулей проекта будут помещены в папку, путь к которой указывается в полях Output directory и Unit outputdirectory. Если путь в этих полях отсутствует, то исполняемый файл и файлы откомпилированных модулей помещаются в папку проекта.
Для доступа к этим полям необходимо выполнить следующую последовательность действий:
q Выбрать в меню Project команду Options….
q В диалоговом окне Project Options выбрать вкладку Directories/Conditionals.
 |
Рис. 3.2. Задание папки для откомпилированных модулей и исполняемого файла.
Ниже приведен полный текст главного модуля созданного простого калькулятора.
unit Unit_Calc;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls;
type
TForm1 = class(TForm)
LabelOp1: TLabel;
LabelOp2: TLabel;
LabelResult: TLabel;
EditOp1: TEdit;
EditOp2: TEdit;
EditResult: TEdit;
ButtonAdd: TButton;
ButtonSub: TButton;
ButtonMult: TButton;
ButtonDel: TButton;
ButtonClear: TButton;
BitBtnClose: TBitBtn;
procedure ButtonAddClick(Sender: TObject);
procedure ButtonSubClick(Sender: TObject);
procedure ButtonMultClick(Sender: TObject);
procedure ButtonDelClick(Sender: TObject);
procedure ButtonClearClick(Sender: TObject);
procedure EditOpChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Op1,Op2:integer;
Res:real;
implementation
{$R *.DFM}
procedure TForm1.ButtonAddClick(Sender: TObject);
begin
Op1:=StrToInt(EditOp1.Text);
Op2:=StrToInt(EditOp2.Text);
Res:=Op1+Op2;
EditResult.Text:=FloatToStr(Res);
LabelResult.Visible:=True;
LabelResult.Caption:='Результат +';
end;
procedure TForm1.ButtonSubClick(Sender: TObject);
begin
Op1:=StrToInt(EditOp1.Text);
Op2:=StrToInt(EditOp2.Text);
Res:=Op1-Op2;
EditResult.Text:=FloatToStr(Res);
LabelResult.Visible:=True;
LabelResult.Caption:='Результат -';
end;
procedure TForm1.ButtonMultClick(Sender: TObject);
begin
Op1:=StrToInt(EditOp1.Text);
Op2:=StrToInt(EditOp2.Text);
Res:=Op1*Op2;
EditResult.Text:=FloatToStr(Res);
LabelResult.Visible:=True;
LabelResult.Caption:='Результат *';
end;
procedure TForm1.ButtonDelClick(Sender: TObject);
begin
Op1:=StrToInt(EditOp1.Text);
Op2:=StrToInt(EditOp2.Text);
Res:=Op1/Op2;
EditResult.Text:=FloatToStr(Res);
LabelResult.Visible:=True;
LabelResult.Caption:='Результат /';
end;
procedure TForm1.ButtonClearClick(Sender: TObject);
begin
EditOp1.Clear;
EditOp2.Clear;
EditResult.Clear;
LabelResult.Visible:=False;
EditOp1.SetFocus;
end;
procedure TForm1.EditOpChange(Sender: TObject);
begin
EditResult.Clear;
LabelResult.Visible:=False;
end;
end.
Задание
1. Создать простой калькулятор.
2. Разместить на форме простого калькулятора две кнопки для выполнения операций деления нацело (div) и остатка от деления нацело (mod).
3. Создать процедуры обработки событий OnClick для вновь добавленных кнопок.
4. Запустить программу на выполнение.
Содержание отчета
Отчет должен содержать:
q Титульный лист.
q Задание.
q Описание используемых компонент (значение свойств, отличных от значений по умолчанию).
q Текст главного модуля созданного простого калькулятора.
6. Контрольные вопросы
1. Перечислите способы размещения компонент на форме.
2. Можно ли разместить сразу несколько компонентов на форме ?
3. Как выбрать один компонент на форме ?
4. Как выбрать несколько компонентов на форме ?
5. Как изменить размеры компонента ?
6. Как переместить компонент ?
7. Что такое свойство компонента ?
8. Перечислите типы свойств компонентов ?
9. Как установить значение свойства во время разработки ?
10. Можно ли установить значение одноименного свойства сразу у нескольких компонентов ?
11. Какие типы событий вы знаете ?
12. Как создать процедуру обработки стандартного события ?
13. Как процедуру обработки не стандартного события ?
14. Как назначить уже созданную процедуру обработки события другому событию ?
15. Как удалить процедуру обработки события ?
16. Перечислите способы переключения между окном формы и окном редактора кода
17. Как сохранить проект ?
18. Перечислите файлы, создаваемые при разработке приложения.
19. Как добавить модуль к проекту ?
20. Как добавить форму к проекту ?
21. Как открыть окно менеджера проекта ?
22. Перечислите способы открытия файлов модулей проекта ?
23. Как просмотреть исходный текст файла проекта ?
24. Как запустить созданное приложение на выполнение ?
25. Где размещаются файлы откомпилированных модулей и исполняемый файл ?