☰ Содержание · Информатика

Объект Edit

Уроки 47–48 · 2 урока · Н. И. Тайлаков (общий редактор), А. Б. Ахмедов, М. Д. Пардаева, А. А. Абдуганиев, У. М. Мирсанов. Информатика и информационные технологии, 10 класс, 1-е издание. «Extremum-Press», Ташкент, 2017
48

Практическое занятие

Учебник: с. 105–106
ЦельИспользует Edit и Label вместе для создания небольших приложений, проверяющих и обрабатывающих текст; применяет функции Length и UpperCase.
Новые слова
Length: функция, возвращающая количество символов в строке · LengthUpperCase: функция, преобразующая строку в заглавные буквы · UpperCaseOnChange: событие изменения текста в Edit · OnChangeпустая строка: строка без символов, записываемая как '' · bo‘sh satr
Объяснение

На практическом занятии создаются три приложения для работы с Edit. Первое – «Счётчик символов»: в Edit1 вводится слово, и при нажатии кнопки появляется Label1.Caption := 'Belgilar: ' + IntToStr(Length(Edit1.Text)); Length считает также пробелы и знаки препинания. Второе – «Заглавные буквы»: Edit2.Text := UpperCase(Edit1.Text); преобразует текст в заглавные (UpperCase находится в модуле SysUtils, который обычно уже подключён в новом приложении). Третье – очистка: в событии OnChange компонента Edit1 (двойной щелчок на вкладке Events в Object Inspector) запишите Label1.Caption := ''; чтобы устаревшее количество символов исчезало, как только текст изменится. В каждом приложении записывайте ожидаемые результаты в тетрадь до проверки.

Примеры
Length('informatika') = 11, а Length('Ali Vali') = 8 (пробел тоже считается). Если в Edit1 находится kompyuter, Label показывает Belgilar: 9. Результат UpperCase('salom 5a') – SALOM 5A.
Очистка Label1 в OnChange: procedure TForm1.Edit1Change(Sender: TObject); ⏎ begin ⏎  Label1.Caption := ''; ⏎ end; После того как показано «Belgilar: 9», если пользователь добавит в Edit1 к слову одну букву, старое число исчезнет, потому что теперь оно было бы неверным. Повторное нажатие кнопки показывает новое число.
Работа в классе

«Счётчик символов»: каждый ученик записывает в тетради 5 слов и заранее вычисляет Length; проверяет с помощью приложения партнёра и записывает причину любого расхождения.

Упражнения
1
Чему равно Length('maktab')?
2
Чему равно Length('10 A sinf') (пробелы считаются)?
3
Каков результат UpperCase('ali')?
4
Чем удобна для пользователя очистка старого результата в OnChange?