Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Очистка строки слева и справа от указанных символов

Delphi , Синтаксис , Текст и Строки

Очистка строки слева и справа от указанных символов

Автор: VID
WEB-сайт: http://delphibase.endimus.com

{ **** 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.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Текст и Строки ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 00:23:31/0.033377885818481/0