Очистка строки слева и справа от указанного символаDelphi , Синтаксис , Текст и СтрокиОчистка строки слева и справа от указанного символа
Автор: Lipskiy { **** UBPFD *********** by delphibase.endimus.com **** >> Очистка строки слева и справа от указанного символа Функция возвращает строку Str, очищенную слева и справа от указанного символа Symbol. Работает быстрее аналогичной функции UBPFD.TrimEx, так как не использует функцию поиска Pos, имеет более компактный код. Зависимости: System, SysUtils Автор: lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург Copyright: Собственное написание (lipskiy) Дата: 2 июня 2002 г. ***************************************************** } function TrimString(Str: string; Symbol: char): string; begin Result := Str; if Str = '' then exit; Str := Trim(Str); // Удаляем в начале строки while (length(Str) > 0) and (AnsiUpperCase(Str[1]) = AnsiUpperCase(Symbol)) do Delete(Str, 1, 1); // Удаляем в конце строки while (length(Str) > 0) and (AnsiUpperCase(Str[length(Str)]) = AnsiUpperCase(Symbol)) do Delete(Str, length(Str), 1); Result := Str; end; Статья Очистка строки слева и справа от указанного символа раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |