Работа с символьными строками

[drinkyahoo]

Задача: ввести любые символы в Edit1.
Если попадается знак '!', то поставить перед ним и после него пробел.
Вывести результат в Edit2.

Суть проблемы.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String s=Edit1->Text;
for (int i=1;i<s.Length();i++)
{
    if(s[i]=='!') s.Insert('  ',i+1);
}
 
Edit2->Text=s;
}

s[i] - индекс строки, или адрес конкретного символа.
В этом случае программа без проблем распознает знак восклицания, и ставит после него пробел.
Но если ввести

{
    if(s[i]=='!') s.Insert('  ',i-1);
}

По идее программа должна по индексам до знака восклицания ставить пробел, но она просто зависает.
В справочнике s.Insert - команда вставляет символ, начиная с указанного индекса.
Может есть функция "вставить символ до указанного индекса"? Или я ошибся с адресом индекса? Или для билдера 2 последовательно введенных условия неприемлемы?

[nick42]

Ну, на первый взгляд, напоминает гонки за привязанной морковкой: вставляя пробел перед знаком восклицания, его сдвигают, так что следующая итерация приходится на него же. Снова вставляется пробел, снова знак смещается... . Можно попробовать скорректировать и переменную цикла после вставки пробела (i+=1).

[microbit]

что мешает удалить символ '!', а на его место вставить " ! "

{
   if(s[i] == '!')
   {
     s.Delete(i,1);
     s.Insert(" ! ",i);
     i++;
   }
}

[Luuzuk]

Ну раз пошла такая пьянка
http://blog.kislenko.net/show.php?id=413