Проблема в том, что в данном случае функция POS не подходит.
Ну и, например, если в одной строке 2 или более ссылок, то тоже данный код будет работать неправильно. Да и еще цикл FOR упадет.
Рекомендации:
1. Взять текст как строку из Memo1.Lines.Text
2. Пользовать функцию PosEx.
|