Операции со строками
Операции сцепления строк «+».
St1:= St1+St2+’abc’; //объединение строк
Операции отношения >, >=, =, <=, <, <>. Строки сравниваются посимвольно, начиная с первого символа. Если в одинаковых позициях строк находятся разные символы, большей считается та строка, у которой в этой позиции находится символ с большим кодом. Результатом операции сравнения ‘abcd’ < ‘bcd’ будет значение true.
Отображение текста компонентом класса tLabel
Компонент класса TLabel предназначен для размещения на форме текстовых надписей. В процессе выполнения программы текст надписи может быть многократно изменён программным кодом, однако, пользователь, во время выполнения программы, не может редактировать надписи.
Основное свойство компонента – Caption (заголовок, надпись) содержит текст. Свойство +Font :Объект определяет тип шрифта, +Style :Объект - определяет стиль текста.
Отображение надписи возможно двумя способами:
непосредственным заданием значения свойства Caption в Инспекторе объектов;
переопределением свойства Caption программным кодом.
Последовательность задания свойства Caption
1. После размещения компонента TLabel на форме в инспекторе объектов (рис. 4) для назначения значения свойства Caption следует выполнить:
Форма Компонент TLabel Object Inspector
Properties Caption Текст надписи
Рис. 3.. Установка метки Рис. 4. Выбор шрифта
2. При необходимости переопределяют параметры шрифта, заданные по умолчанию (рис. 5).
-Font - объект - определяет параметры шрифта
Color – цвет (раскрывающийся список)
Name – имя шрифта (раскрывающийся список)
Size - размер
+Style - объект - определяет стиль текста
3. Если размер компонента больше текста, производят его выравнивание.
Alignment (выравнивание)
taLeftJustify – по левому краю
taCenter – по центру
taRightJustify – по правому краю
Layout (размещение) – положение текста по вертикали
tlTop – по верхнему краю
tlCenter – по центру
tiBottom – по низу
Переопределение свойства Caption программным кодом
Вывод текста, состоящего из нескольких строк, возможен только при наступлении какого-либо события во время выполнении программы. Эта задача решается в несколько этапов:
Подготовка метки.
Определение события, при наступлении которого будет осуществлён вывод.
Описание констант и переменных, которые будут использованы при вводе/выводе.
Разработка программного кода, реализующего вывод текста.
1. Подготовка метки. Установите компонент TLabel, задайте ему достаточные размеры и переопределите следующие свойства.
AutoSize: Boolean – разрешает/запрещает (True/False) автоматическое изменение размера метки.
WordWrap :Boolean – разрешает/запрещает (True/False) разрыв строки на границе слова.
Установите AutoSize → False
WordWrap → True
2. Определение события. Вывод текста можно связать с наступлением одного из следующих событий.
OnActivate – активизирует форму и передаёт ей фокус.
OnClick – щелчок мышкой по форме.
OnDblClick - двойной щелчок мышкой по форме.
Для примера выберем событие OnClick .
Форма Object Inspector Events OnClick щелчок по форме
Выбор события приведёт к добавлению программного кода в модуль. В раздел interface, в описание объекта TForm1 будет добавлен заголовок процедуры обработки события - procedure FormClick(Sender: TObject). В раздел implementation - шаблон этой процедуры. В приведённом примере добавленный текст выделен курсивом.
type
TForm1 = class(TForm)
……………………
Label2: TLabel;
procedure FormClick(Sender: TObject);
end;
………………………………………………
Implementation
procedure TForm1.FormClick(Sender: TObject);
begin
end;
3. Разработка программного кода для вывода текста.
Вариант 1. Для вывода текста в процедуре обработки события необходимо задать значение строковой константы (Str1), а затем свойству .Caption присвоить это значение.
procedure TForm1.FormClick(Sender: TObject);
Const Str1= 'Мы все учились понемногу,' #10+ //#10 – перевод строки
'Чему-нибудь и как-нибудь.'; // + объединение строк
begin
Label2.Caption := Str1 ;
end;
Вариант 2. Значение строковой константы (Str1) задано в разделе implementation, а в процедуре обработки события свойству Caption присвоено значение константы.
Implementation
………………
Const Str1= 'Мы все учились понемногу, '#10+ //#10 – перевод строки
'Чему-нибудь и как-нибудь.'; // + объединение строк
procedure TForm1.FormClick(Sender: TObject);
begin
Label2.Caption := Str1 ;
end;
Если константа (или переменная) используется в нескольких процедурах, то вариант 2 предпочтительнее.