Статистика | Зарегистрировано на сайте: Всего: 51635
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
|
Каталог статей
Удаление ненужных подстрок из строки
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;
|
|
Просмотров: 613
| Рейтинг: 1.0/
6
Оштрафовать
| Жаловаться на материал |
|
|