Осознайте эффект
Только один полуколон назначается после каждого элемента.
Пройтись; 123; JKL;
Пройти в ABC ;;; 123 ;; jkl;
Пройти в ABC ;;; 123 ;; jkl return abc; 123; JKL;
Ключевые функции
DELETE {Описание функции: Удалить указанную строку в строке. Эта функция имеет три параметра. Первый параметр - это строка, которая будет обработана, второй параметр - это то, где запустить удаление, а третий параметр - это количество символов, которые будут удалены. } LeftStr (Unit: Strutils) {Функция Описание: возвращает новый символ (строка), указанный в левой части строки. Эта функция имеет два параметра. Первый параметр - это полная строка, а второй параметр - это указанный номер. } Rightstr (Unit: Strutils) {Функция Описание: возвращает новый символ (строка), указанный справа от строки. Эта функция имеет два параметра. Первый параметр - это полная строка, а второй параметр - это указанный номер. } Pos {функция Описание: Найдите местоположение символа (String). Эта функция имеет два параметра. Первый параметр - это символ (строка), который будет искать, а второй параметр - это символ (строка), который будет искать. } Код: // использует необходимые
Упорная единица Функция Dealstr (S: String): String; VAR S2, S3: String; VAR S1: WideStrng; = ''; ('', s1), 1); ';'; s1: = rightstr (s1, (длина (S1) -pos (';', s1)); Оставленный if (s3 = ';') Тогда // Если строка слева имеет только полуколон, Discard Begin End Begin S2: = S2+S3; Rightstr (s1, (длина (S1) -pos (';', S1));