Работа со строками

1. Как эффективно соединять много строк, чтобы не тормозил код?

Клиенты часто жалуются: "программа подвисает при формировании отчета". Обычно это происходит, потому что разработчик использует оператор + или Concat в цикле для склейки десятков тысяч строк. Каждая операция создает новую строку в памяти — это вызывает лавину аллокаций и сборок мусора. Решение простое: заведите TStringBuilder из модуля System.SysUtils. Он работает как динамический буфер: вы добавляете части вызовами Append, а финальную строку получаете через ToString. В одном из проектов мы ускорили формирование XML-отчета с 12 секунд до 0,3 секунды — пользователи были в восторге, интерфейс перестал "засыпать".

2. Как заменить часть строки быстро и без сюрпризов?

Функция StringReplace знакома всем, но в ней есть скрытая ошибка: по умолчанию она заменяет все вхождения, а не первое. Чтобы заменить только первое совпадение, передайте флаг [rfReplaceFirst]. Также помните: функция создает новую строку, то есть оригинал не меняется. Если нужно изменить строку на месте, засуньте результат обратно в переменную. Для замены единственного символа быстрее использовать StringReplace с rfReplaceAll, чем писать цикл с проверкой каждого символа — разница заметна уже на 50 тысячах итераций.

3. Почему Split и Join — мои любимые функции, и когда их нельзя использовать?

Split разбивает строку на массив по разделителю — это спасло меня, когда нужно было распарсить CSV с 200 тысячами записей за 0,1 секунды. Join делает обратное: собирает массив в строку со вставкой разделителя. Но есть нюанс: если в исходных данных встречается сам разделитель, простой Split выдаст мусор. Например, в поле "Фамилия, Имя" запятая ломает структуру. В таких случаях используйте TStringList.CommaText — он умеет экранировать кавычки и обрабатывать вложенные разделители. В одном проекте с клиентом мы заменили самописный парсер на CommaText и избавились от 50 строк кода и двух багов.

4. Как проверить, что строка — это число, не вызывая исключение?

Попытка преобразовать "123abc" с помощью StrToInt вызовет исключение — это больно и медленно. Используйте TryStrToInt: она возвращает Boolean, а результат кладет в переменную через var-параметр. Код становится чище, а производительность выше — исключения в цикле из 10 тысяч элементов могут замедлить программу в 100 раз. Для чисел с плавающей точкой есть TryStrToFloat. Запомните: всегда проверяйте ввод пользователя через Try...-функции, это исключит крах программы при неверных данных.

5. Как убрать лишние пробелы в начале и конце строки?

Стандартный Trim удаляет пробелы и управляющие символы с обоих концов. Если нужно удалить только с начала — TrimLeft, только с конца — TrimRight. Но клиенты часто присылают строки с неразрывными пробелами (код 160), которые Trim не трогает. Решение: вызвать StringReplace для замены символа #160 на обычный пробел, потом применить Trim. В одном проекте мы добавили эту очистку на этапе загрузки данных — и перестали получать жалобы на "странные ошибки" в отчетах.

6. Как конвертировать строку в верхний/нижний регистр с учетом локали?

Функции UpperCase и LowerCase работают быстро, но не учитывают национальные символы вроде немецкого 'ß' или турецкого 'İ'. Если ваше приложение выходит на международный рынок, используйте перегруженные версии с параметром TLocaleOptions из Character — ToUpper и ToLower. Для русского языка обычно хватает стандартных функций, но если вы сортируете строки с буквой 'ё', подключайте модуль AnsiStrings и функцию AnsiUpperCase. Помните: неправильный регистр при сравнении паролей может стоить блокировки аккаунта.

7. Как найти слово в строке без учета регистра и с учетом целого слова?

Простое Pos ищет подстроку как есть, включая регистр. Для поиска без учета регистра используйте Pos в паре с UpperCase: Pos(UpperCase(Needle), UpperCase(Haystack)). Но это не отличит "кот" от "коттедж". Для поиска целого слова нужно проверять окружение: символы до и после должны быть не буквами. Быстрее всего — использовать регулярное выражение с границей слова '\b'. Подключите модуль RegularExpressions и пишите: TRegEx.IsMatch(s, '\bкот\b', [roIgnoreCase]). Один клиент так исправил поиск в справочнике — и перестал получать ложные срабатывания.

8. Как правильно сравнивать строки в Delphi, чтобы не было сюрпризов?

Сравнение через = работает посимвольно и зависит от текущей кодировки. Для сравнения без учета регистра используйте CompareText — она быстрее, чем UpperCase(a) = UpperCase(b). Если нужно учитывать локаль (например, для сортировки в алфавитном порядке), берите AnsiCompareStr или AnsiCompareText — они обрабатывают 'ё' и другие национальные символы. Для критичных операций (проверка пароля) используйте SameStr или SameText — они защищены от ошибок, когда одна строка не инициализирована. Совет: никогда не сравнивайте строки через PChar и lstrcmp — это старый API, который ломается на Unicode.

9. Как получить подстроку с начала до конца? И что, если длина неизвестна?

Функция Copy берет часть строки: Copy(S, Start, Count). Если Count больше остатка строки, вернется все до конца — это безопасно. Но часто мы не знаем точную длину. Выход: задать Count как MaxInt — тогда Copy возьмет все символы от позиции до конца. Альтернатива для Delphi 2009+: использовать Substring из System.StrUtils — она работает аналогично, но принимает только один параметр (начало) и длину до конца по умолчанию. В проекте с текстовым редактором мы на Substring переписали 20 функций — код стал читаемее, а баги с выходом за границы исчезли.

10. Как вытащить из строки все цифры или только буквы?

Для фильтрации символов по категориям используйте CharInSet или функции из модуля Character — IsDigit, IsLetter, IsLetterOrDigit. Лучший способ — пройтись циклом по всем символам и собрать нужные в TStringBuilder. Пример: если нужно оставить только цифры из телефона, проверяйте IsDigit для каждого символа. Для более сложных фильтров (например, все, кроме пробелов) задавайте отрицательное условие: if not CharInSet(ch, [' ', ',', '.']). Один раз мы так очистили номера счетов — и перестали терять платежи из-за лишних дефисов.

Добавлено: 27.04.2026