Очистка строки слева и справа от указанных символовDelphi , Синтаксис , Текст и СтрокиОчистка строки слева и справа от указанных символов
Автор: VID { **** UBPFD *********** by delphibase.endimus.com **** >> Очистка строки слева и справа от указанных символов Функция возвращает word, очищеный от начальных и конечных символов, которые попадают в строку TrimSymbols. Например, ShowMessage (TrimEx('<MegaTeg>', '<>')), выведет сообщение "MegaTeg" (без кавычек). Зависимости: system, sysutils Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала Copyright: VID Дата: 25 апреля 2002 г. ***************************************************** } function TrimEX(Word, TrimSymbols: string): string; var x, a, b: Integer; begin Result := Word; if TrimSymbols = '' then exit; Word := Trim(word); if length(word) = 0 then exit; x := 0; repeat x := x + 1; until (pos(ansiuppercase(word[x]), ansiuppercase(TrimSymbols)) = 0) or (x = length(word)); a := x; x := length(word) + 1; repeat x := x - 1; until (pos(ansiuppercase(word[x]), ansiuppercase(TrimSymbols)) = 0) or (x = 1); b := x; word := copy(word, a, b - a + 1); result := word; end; Статья Очистка строки слева и справа от указанных символов раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |