Некоторые стандартные процедуры и функции для обработки строк

6.1.4.1 Функция Length

Объявление функции:

function Length (s: String): Integer;

Функция возвращает число символов в строке S, которая передана функции в качестве параметра.

Например, выражение Length (‘Десна’) вернет значение 5.

6.1.4.2 Функция AnsiUpperCase

Объявления функций:

function AnsiUpperCase (const s: String): String

Функция возвращает новую строку, полученную из s, путем преобразования символов букв к верхнему регистру. Функция AnsiUpperCase применима для латинских и русских текстов.

Например, выражение AnsiUpperCase (‘Десна’) вернет значение ‘ДЕСНА’.

Для использования функции следует подключить модуль SysUtils.

6.1.4.3 Функция AnsiLowerCase

Объявления функций:

function AnsiLowerCase (const s: String): String

Функция возвращает новую строку, полученную из S, путем преобразования символов букв к нижнему регистру. Функция AnsiLowerCase применима для латинских и русских текстов.

Например, выражение AnsiLowerCase (‘Десна’) вернет значение ‘десна’.

Для использования функции следует подключить модуль SysUtils.

6.1.4.4 Функция AnsiCompareText

Объявление функции:

function AnsiCompareText (const s1, s2: string): Integer;

Функция сравнивает две строки ANSI s1 и s2 без учета регистра. Возвращает значение < 0, если s1 < s2, 0, если s1 = s2, и > 0, если s1 > s2.

6.1.4.5 Функция Copy

Объявление функции:

fu nction Copy (s: String; index, count: Integer): String;

Функция возвращает подстроку строки s, начинающуюся с позиции index и содержащую до count символов.

Если index выходит за пределы строки – возвращается пустая строка.

Если count определяет больше символов, чем возможно, возвращается максимально возможное число символов.

Например, выражение Сopy (‘Десна – прекрасная река’, 12, 7) вернет значение ‘красная’.

6.1.4.6 Процедура Delete

Объявление процедуры:

procedure Delete (var s: String; index, count: Integer);

Процедура удаляет из строки S до Count символов, начиная с позиции Index.

Если count определяет больше символов, чем возможно, удаляется максимально возможное число символов.

Если index выходит за пределы строки, удаление не производится.

Обратите внимание, так как строка передается в процедуру по ссылке, то в процедуру можно передавать только имя строки, но не значение.

Например, пусть значение строки s равно ‘Десна – прекрасная река’. После вызова процедуры Delete (s, 9, 11) значение строки s станет ‘Десна –река’.

6.1.4.7 Процедура Insert

Объявление процедуры:

procedure Insert (source: String; var s: String; index: Integer);

Процедура вставляет строку source в строку s, начиная с позиции index.

Если index < 1, он заменяется единицей. Если индекс больше длины строки, source добавляется к концу строки s.

Так же как и в предыдущем случае, строка s передается в процедуру по ссылке.

Например, пусть значение строки s равно ‘Десна – река’. После вызова процедуры Insert (‘прекрасная ’ s, 9) значение строки s станет ‘Десна – прекрасная река’.

6.1.4.8 Функция Pos

Объявление функции:

function Pos (substr, s: String): Integer;

Функция возвращает позицию (индекс) первого вхождения строки substr в строку s. Если substr нет в s, возвращается 0.

Например, выражение Pos (‘прекрасная ’, ‘Десна – прекрасная река’) вернет значение 9.

6.1.4.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 завершающие пробелы и управляющие символы.

Пробелы находящиеся внутри строки не удаляются ни одной из этих функций.

6.2 Создание проекта «Применение цикла for»

В этой лабораторной работе мы создадим приложение, которое продемонстрирует возможности цикла for для обработки данных различных типов. Особенность данного приложения в том, что оно будет содержать несколько форм, и мы попытаемся их объединить, но вначале создадим каждую форму отдельно.

Откройте новый проект.