Удалить из состава строки последовательности

[999Crow999]

точняк... (Out of range)

мож так?)

program lab;
uses crt;
var i,j: integer;
s: string;
begin clrscr;
write('BBEDUTE CTPOKY=');
read(s);
j:=length(s);
for i:=1 to j do
begin
if upcase(s[i])='A' then begin
if upcase(s[i+1])='B' then begin
if upcase(s[i+2])='C' then begin
if upcase(s[i+3])='D' then begin
delete(s,i,4);
j:=j-4;
end;
end;
end;
end;
end;
writeln('PE3Y/ITAT=',s);
readln;
readln;
end.

[bingooo]

теперь тока большие будет удалять)

[bingooo]

Grag, у меня есть функция LowCase, только я не знаю, как с ее помощью решить эту задачу. Помогите пожалуйста

[999Crow999]

Сообщение от bingooo

теперь тока большие будет удалять)

Не правда).. Проверял! и большие и маленькие удаляет)

[bingooo]

cпасибо большоеее)))

[Grag]

Сообщение от bingooo

Grag, у меня есть функция LowCase, только я не знаю, как с ее помощью решить эту задачу. Помогите пожалуйста

Подскажу как исправить ошибку "Out of range"
Во-первых, замени цикл For на While.
Во-вторых, определи границу цикла как Length(s)-4;

И кучу вложенных If then замени вот так
if (UpCase(s[i])='A') and (UpCase(s[i+1])='B') and (UpCase(s[i+2])='C') and (UpCase(s[i+3])='D') then Delete(s,i,4);

Хотя можешь и оставить цикл FOR, только границу поменяй как я указал...

[999Crow999]

Спасибо Grag=) затупил я с циклом(

Подскажу как исправить ошибку "Out of range"
Во-первых, замени цикл For на While.
Во-вторых, определи границу цикла как Length(s)-4;

И кучу вложенных If then замени вот так
if (UpCase(s[i])='A') and (UpCase(s[i+1])='B') and (UpCase(s[i+2])='C') and (UpCase(s[i+3])='D') then Delete(s,i,4);

Хотя можешь и оставить цикл FOR, только границу поменяй как я указал...

а если эта последовательность не один раз будет встречаться в строке?!

[ROMA2PVT]

а если эта последовательность не один раз будет встречаться в строке?!

Да хоть десять.В любом случае удалит.

[ROMA2PVT]

Фигню какую-то написал здесь.Извиняюсь.Удалил.