Рассмотрение дополнительных компонентов для ввода/вывода строк

Для ввода и вывода информации в объектно-ориентированном программировании существует целый ряд вариантов. В библиотеке визуальных компонентов Delphi существует множество компонентов, позволяющих отображать, вводить и редактировать текстовую информацию. Нами уже были рассмотрены Label (метка), Edit (однострочное поле) и Memo (многострочное поле). В таблице приведен перечень оставшихся компонентов с краткими характеристиками и указанием основных параметров, содержащих отображаемый или вводимый текст.

Пиктограмма	Компонент	Вкладка	Описание
	StaticText (метка с бордюром)	Additional	Подобен компоненту Label, но обеспечивает возможность задания стиля бордюра. Основное свойство — Caption.
	Panel (панель)	Standard	Компонент является контейнером для группирования органов управления, но может использоваться и для отображения текста с возможностями объемного оформления. Основное свойство — Caption.
	MaskEdit (окно маскированного редактирования)	Additional	Используется для форматирования данных или для ввода символов в соответствии с шаблоном. Основные свойства — Text и EditText.
	RichEdit (многострочное окно редактирования в формате RTF)	Win32	Компонент представляет собой окно редактирования позволяющее производить выбор атрибутов шрифта, поиск текста и многое другое. Основное свойство — Lines.
	ListBox (окно списка)	Standard	Отображение стандартного окна списка Windows, позволяющего пользователю выбирать из него пункты. Основное свойство — Items.
	CheckListBox (список с индикаторами)	Additional	Компонент является комбинацией свойств списка ListBox и индикаторов CheckBox в одном компоненте.
	ComboBox (редактируемый список)	Standard	Объединяет функции ListBox и Edit. Пользователь может либо ввести текст, либо выбрать его из списка. Основное свойство — Items.

Оператор присоединения (With)

Оператор используется для сокращения записи кода программы при обращениях к свойствам объекта. Он позволяет избегать повторных ссылок на объект в последующих операторах.

Структура:

With <объект> Do <оператор>;

Например, группу операторов

Form1.label1.left := form1.label1.left + 10;

Form1.label1.caption :=label2.caption;

Form1.label1.font.color := clred;

С помощью with можно записать короче:

With form1.label1 do

Begin

left := left + 10;

caption :=label2.caption;

font.color := clred;

end;