Удаление ненужных подстрок из строки - Pascal - Не стандартные примеры на Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Алгоритмы [95]

API [111]

Pascal [153]

Базы Данных [173]

BDE [0]

Интернет [0]

Мультимедия [0]

Аппаратное обеспечение [0]

Операционная система [0]

Компоненты [0]

Классы [0]

OLE+ [0]

Миграция [0]

Ошибки [0]

DLL [0]

Продукты третьих фирм [0]

Разное [0]

События [0]

Главная » Статьи » Не стандартные примеры на Delphi » Pascal

Удаление ненужных подстрок из строки

procedure RemoveInvalid(what, where: string): string;
// what - удаляемая подстрока, where - обрабатываемая строка
var

tstr: string;

begin

tstr:=where;

while pos(what, tstr)>0 do

tstr:=copy(tstr,1,pos(what,tstr)-1) +

copy(tstr,pos(what,tstr)+length(tstr),length(tstr));

Result:=tstr;

end;

Применение:

NewStr:=RemoveInvalid('<брак>','Этот <брак> в моей строке, и я хочу

удалить из нее этот <брак>');

Другое решение:

Используйте стандартную функцию Pascal DELETE...
Пользуясь тем же примером, вы можете сделать так....

Target:='<брак>';
While POS(Target,string)>0 do

begin

P := POS(Target,string);

DELETE(string,P,Length(Target));

end;

Категория: Pascal | Добавил: DelphiAiX (09.05.2012)

Просмотров: 782 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума