5. Структура проекта в Delphi. Понятие компонента. Палитра компонент. Примеры работы с компонентами Label, Edit.

Проект Delphi состоит из форм, модулей, установок параметров проекта, ресурсов и т.д. Вся эта информация размещается в файлах. Многие из этих файлов автоматически создаются Delphi:

Главной частью приложения является файл проекта (.dpr) с которого начинается выполнение программы и который обеспечивает инициализацию других модулей.

Проект Delphi представляет собой набор программных единиц – модулей.

Модуль – автономно компилируемая программная единица, включающая в себя различные компоненты раздела описаний (типы, константы, переменные, процедуры и функции) и, возможно некоторые исполняемые операторы инициирующей части.

Один из модулей – главный, содержит инструкции, с которых начинается выполнение программы. Главный модуль приложения полностью формируется Delphi.

Помимо главного модуля каждая программа включает в себя еще как минимум один модуль формы, который содержит описание стартовой формы приложения и поддерживающих ее работу процедур. В Delphi каждой форме соответствует свой модуль.

Компонент - это класс, интерфейс которого определяется свойствами (properties), методами (methods) и событиями (events). В визуальной среде разработки свойства компонента можно изменять во время проектирования.

Палитра компонентов состоит из нескольких вкладок, расположенных на главном окне Delphi. Первые вкладки содержат наиболее употребительные компоненты, которые используются практически в каждой программе, затем более специализированные:

6. События и их обработка в Delphi (OnClick, OnFormShow, OnKeyPress). Примеры.

 Теперь рассмотрим событие onClick. Как вы догадываетесь, это событие возникает при щелчке мышкой на компоненте. Воспользуемся им, чтобы очищать строку ввода от уже введённых символов. Вы сами уже должны сообразить, что сделать. В обработчике нужно присвоить свойству Text значение пустой строки. Строка в Delphi образуется заключением текста в одинарные кавычки (находятся на кнопке Э):     'Так в Delphi образуется строка' Значит, пустая строка - это кавычки без текста: ''. Не должно быть даже пробела, иначе он окажется в строке ввода:    Edit1.Text:='';

Форм шов

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

Пример. Пусть нам нужно запретить ввод в таблицу других символов крому числовых. Для этого составим множество числовых символов, и при нажатии любых клавиш с символами не входящими в это множество будем заменять значение переменной Key на символ "отсутствие символа" (#0): procedure TForm1.StringGrid1KeyPress(Sender: TObject;var Key: Char);   const Digit=['0','1'..'9']; begin   if (not (Key in Digit)) then Key:=#0; end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

Key := #0

end;

7. Операторы безусловного и условного переходов. Составные условия. Оператор выбора варианта (вывод на экран результатов в среде Delphi).

Без условный

x:integer;

label M1;

begin x:=1;x=2; goto M1; x=3;x=4 M1:; label.caption=inttostr(x); end.

Условный

var

i:integer

begin

i:=2;

if i=1 then begin

label.caption:=”Perem i=1”;

form.color:=clred;

end else begin

label.caption:=”Perem i<>1”;

form.color:=clgreen;

end.

else не является обязательной частью условного оператора.

var

a:byte;

begin

if (a=2) then a:=10;

end.

procedure TForm1.Button1Click(Sender: TObject);

var Day : integer; begin day:=strtoint(edit1.text) case Day of {Вычисление значения выражения и выбор} 1: label1.caption:='Понедельник'; 2: Writeln ('Вторник'); 3: Writeln ('Среда'); 4: Writeln ('Четверг'); 5: Writeln ('Пятница'); 6: Writeln ('Суббота'); else Writeln ('Воскресенье'); end; end.