VPF::delete - Форум программистов

Негодяй

Дата 15.4.2005, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32

думал разомнуться и человеку помочь, а тут:

Код


var s:string;
sogl:set of char;
i,j:integer;
begin
sogl:=['b','c','d','f','g','h'];
s:='abc de  fgh';
j:=0;

for i:=1 to length(s) do
if s[i] in sogl then
begin
delete(s,i,1);
inc(j);
end;
caption:=caption+s+' '+inttostr(j);
end;

выводит ac e g

а если вместо delete(s,i,1) сделать s[i]:='0' то так работает, а мне надо имено удалять/
чё за?? подскажите? smile

Snowy

Дата 15.4.2005, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Зделай цикл в обратную сторону - от конца к началу
Добавлено @ 13:46
Фикус в том, что ты удаляешь и у тебя строка сдвигается влево, а цикл уже ужел вперед.
При пробеге наоборот - это не мешает.

Негодяй

Дата 15.4.2005, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32

Код


var s:string;
sogl:set of char;
i,j:integer;
begin
sogl:=['b','c','d','f','g','h'];
s:='abc de  fgh';
j:=0;

for i:=length(s) downto 1 do
if s[i] in sogl then
begin
delete(s,i,1);
inc(j);
end;
caption:=caption+s+' '+inttostr(j);
end;
end.

заработало.. smile

спасибо.. и за объяснение!

Это сообщение отредактировал(а) Негодяй - 15.4.2005, 13:48

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »