- •Лабораторная работа №9 Комбиированный тип - запись Тип данных – Запись
- •Формат определения типа.
- •Правила создания записного типа
- •Представление переменной типа запись в памяти
- •Доступ к значению поля в записи
- •Расчет объема памяти, выделяемого переменной типа запись
- •Требования к выполнению лабораторной работы
- •Варианты заданий
- •Пример разработки одномодульного приложения.
- •Контрольные вопросы
- •Лабораторная работа 10 Разработка приложений под Windows средст вами Delphi Создание оконного приложения
- •Требования к выполнению лабораторной работы
- •Контрольные вопросы
- •Лабораторная работа №11 Объектно-ориентированное программирование Определение класса
- •Наследование
- •Требовния к выполнению лабораторной работы
- •Варианты заданий
- •Контрольные вопросы.
- •Лабораторная работа №12 файлы Текстовый файл
- •Типизированный файл
- •Требования к выполнению лабораторной работы
- •Варианты заданий
- •Контрольные вопросы
- •Библиографический список
Требования к выполнению лабораторной работы
Задание 2. Создать проект под Windows для вашего варианта лабораторной 9.
Преобразуйте консольное приложение, разработанное в лабораторной работе №9 , в приложение под Windows. Включите в него модули. Для этого создайте новое приложение под Windows и подключите к нему модули из проекта лабораторной 9.
uses
SysUtils, MY_Unit_Def in 'MY_Unit_Def.pas', MY _Unit_ Operation in MY_Unit_Operation.pas;
Примечание. В проект не включен модуль ввода-вывода. Так как ввод-вывод организуется через элементы управления формы.
Разработайте проект формы (рис.11) – позволяющей осуществлять ввод данных, отображение данных, выбор выполняемой операции.
Рис. 11. Проект формы
Модуль формы
unit Lab_prim_91;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MY_Unit_Def,MY_Unit_Operation;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button3: TButton;
Memo1: TMemo;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Massiv:TDar;
sum:Tdroby;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var r:TDroby;
begin
r.a:=strtoint(edit1.Text);
r.b:=strtoint(edit2.Text);
if (r.b=0) or (r.a=0) then ShowMessage('знаменатель= 0')
else
Add_to_Array(Massiv,r);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
sline:string;
begin
if radiobutton2.checked then
begin
Memo1.lines[0]:='Элементы массива';
for i:=0 to high(Massiv) do
begin
sline:=inttostr(Massiv[i].a)+'/'+inttostr(Massiv[i].b);
Memo1.Lines.Add(sline);
end
end
else
if radiobutton1.checked then
begin
Memo1.lines[0]:='Сумма';
sum:=Add_Mass(Massiv);
Memo1.lines[0]:='Сумма=';
Memo1.lines.ADD(' '+inttostr(sum.a)+'/'+ inttostr(sum.b))
end
else
ShowMessage(Операция не выбрана');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.Clear
end;
procedure TForm1.Button5Click(Sender: TObject);
begin close end;
end.
Контрольные вопросы
Каково основное назначение формы проекта?
Сколько форм может быть в проекте?
Что такое событие?
Что представляет собой обработчик события?
Как установить событие для объекта, включенного в форму?
Как изменить значение свойства объекта?
Как выполнить форматирование группы элементов формы?
Какое событие может организовать перемещение к следующему полю ввода при нажатии клавиши Enter?
Какие разделы содержит модуль формы?
В каких разделах размещены глобальные имена типов, переменных, обработчики событий?
Что определяет имя Tform1?
Какие переменные определены в модуле?
Что определяет переменная Form1?