IczEdit падает в штопор при замене текста

IczEdit падает в штопор при замене текста
В окно Replace вводим
Find What: aaa
Replace with: aaa
Естественно, если в ричэдите есть этот текст

Где Айзелон ошибся? Тутор №35.

 

Код (Text):

1.                 .while TRUE
2.                     invoke SendMessage,hwndRichEdit,EM_FINDTEXTEX,FR_DOWN,addr findtext
3.                     .if eax==-1
4.                         .break
5.                     .else
6.                         invoke SendMessage,hwndRichEdit,EM_EXSETSEL,0,addr findtext.chrgText
7.                         invoke SendMessage,hwndRichEdit,EM_SETTEXTEX,addr settext,addr ReplaceBuffer
8.                     .endif
9.                 .endw

Этот код ищет текст до полного исчезновения искомой строки.

Следует как-то проверять, какой раз проходит цикл по тексту.

 

Проще, наверное, исключить такой вариант в самом начале поиска.

Off topic:
Я помню как в одной из первых версий Турбо С падал компилятор при встрече такого кода:

Код (Text):

1. #define A A

 

Ага... Только лучше не исключать подобный вариант, а модифицировать findtext.chrg в процессе поиска.

Ибо все варианты не исключить:
Find what: aaa
Replace with: aaaaaaaa

 

Такое падать не должно вообще-то...

Код (Text):

1. Before replacement:
2. ABCDAAAMORE
3.  
4. After replacement:
5. ABCDAAAAAAMORE
6.           |
7.           +-- Begin next search from here