Вниз
Скачать: CL | DM;

удаление слова в строке   Найти похожие ветки 

← →
denis24   (2003-09-08 10:01) [0]

Как удалить опред слово в строке?


← →
Рамиль ©   (2003-09-08 10:06) [1]

Ищите функцией Pos и удаляете процедурой Delete


← →
BackRooT   (2003-09-08 10:10) [2]

Делаешь поиск и удаляешь.
То есть строка - это массив.
Если тебе нужно удалить 3-е слова - ищешь 2-й пробел и удаляешь элементы после него до 3-го пробела.
Если удаляешь слово *опа - ищешь букву *, запоминаешь позицию (посмотри в книжке функции работы со строками), зате ищешь букву о, и т.д. Как нашел - удаляй символы с запомненной позиции (тоже функция)


← →
denis24   (2003-09-08 10:29) [3]

Это да.А как выделить справа у слова несколько символов?


← →
Rombal   (2003-09-08 10:37) [4]

Функция POS дает номер символа, с которого начинается слово, поэтому в функции Delete указываешь символ с которого начинать удаление с меньшим номером.
Var a,b,c : string;
n : integer;
begin
a:="one";
b:="It was really one person";
// Нужно сделать из строки b строку "It was real person"
N:=POS(a,b);
b:=Delete(b,N-3,3+Length(a));
end;


← →
BackRooT   (2003-09-08 10:40) [5]

Я ж говорю - строка - ето массив.
Как ты в массиве это будешь делать -
Ищешь символ, а затем
for i:=номер_символа downto номер_символа-количество_символов do
действие

Вот и всё


← →
Rombal   (2003-09-08 10:51) [6]

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


← →
Кщд   (2003-09-08 11:20) [7]

StringReplace?


← →
VAleksey ©   (2003-09-08 11:43) [8]

Кем и как определенное?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
14-58905
Теркин Вася
2003-08-31 23:45
2003.09.18
Программа для администриования компьютерного клуба


1-58627
rtooo
2003-09-05 12:57
2003.09.18
Помогите пожалуйста с закладками


3-58521
Berezne
2003-08-28 12:43
2003.09.18
Подскажите как отфильтровать базу по дате?


3-58534
Domkrat
2003-08-28 23:54
2003.09.18
Firebird + IBX 7


4-58961
alexus
2003-07-18 10:51
2003.09.18
Отлов клика на иконке в трее




   Наверх