Процедура Delete
Объявление процедуры:
procedure Delete (var s : String; index, count : Integer);
Процедура удаляет из строки S до Count символов, начиная с позиции Index.
Если count определяет больше символов, чем возможно, удаляется максимально возможное число символов.
Если index выходит за пределы строки, удаление не производится.
Обратите внимание, так как строка передается в процедуру по ссылке, то в процедуру можно передавать только имя строки, но не значение.
Например, пусть значение строки s равно ‘Десна – прекрасная река’. После вызова процедуры Delete (s, 9, 11) значение строки s станет ‘Десна –река’.
Процедура Insert
Объявление процедуры:
procedure Insert (source: String; var s: String; index: Integer);
Процедура вставляет строку source в строку s, начиная с позиции index.
Если index < 1, он заменяется единицей. Если индекс больше длины строки, source добавляется к концу строки s.
Так же как и в предыдущем случае, строка s передается в процедуру по ссылке.
Например, пусть значение строки s равно ‘Десна – река’. После вызова процедуры Insert (‘прекрасная ’ s, 9) значение строки s станет ‘Десна – прекрасная река’.
Функция Pos
Объявление функции:
function Pos (substr, s : String): Integer;
Функция возвращает позицию (индекс) первого вхождения строки substr в строку s. Если substr нет в s, возвращается 0.
Например, выражение Pos(‘прекрасная ’, ‘Десна – прекрасная река’) вернет значение 9.
Функции Trim, TrimLeft, TrimRight
Объявление функций:
function Trim (const S: string): string;
function TrimLeft (const S: string): string;
function TrimRight (const S: string): string;
Функция Trim удаляет из строки S начальные и завершающие пробелы и управляющие символы, такие как табуляция, возврат каретки и перевод строки.
Функция TrimLeft удаляет из строки S начальные пробелы и управляющие символы.
Функция TrimRight удаляет из строки S завершающие пробелы и управляющие символы.
Пробелы находящиеся внутри строки не удаляются ни одной из этих функций.
Создание проекта «Применение цикла for»
В этой лабораторной работе мы создадим приложение, которое продемонстрирует возможности цикла for для обработки данных различных типов. Особенность данного приложения в том, что оно будет содержать несколько форм, и мы попытаемся их объединить, но вначале создадим каждую форму отдельно.
Откройте новый проект.
-
Разработка формы «Табулирование функции» Разработка интерфейса
В этой части проекта Вы должны обеспечить вывод таблицы значений функции, расчет которой Вы запрограммировали на лабораторной работе 2.
Создайте форму с интерфейсом, подобным рисунку 6.2.
Рисунок 6.2 – Интерфейс формы «Табулирование функции»
Формулу на форме изображать не обязательно, но табулировать следует функцию, которая соответствует вашему номеру зачетной книжки.
Измените имя формы, например, на frmTable. Это следует сделать обязательно, так как в проекте будет несколько форм, и их придется различать.
Создание вспомогательных процедур и функций
Подключите к форме модуль UnitDop.
В этом модуле уже должна быть функция для расчета по формуле, соответствующей вашему варианту. Если вы не сохранили модуль, создайте функцию заново и включите ее в в модуль UnitDop.
Обеспечьте контроль ввода данных в текстовые поля, используя событие onKeyPress и процедуру TestRealKey, созданную в четвертой лабораторной работе.
Напишите процедуру инициализации формы, которая обеспечит заполнение полей ввода данными, которые соответствуют контрольному примеру. Это ускорит отладку.
Проверьте работу вспомогательных подпрограмм.