Поиск целого слова в строке Memo без вхождений

[Маховик]

Здарова Мужики!
Помогите разобраться, я запутался. Необходимо произвести поиск слова "Form1." в текущей строке Memo, но слово должно быть целиком, без вхождений и без применения компонента FindDialog. Поиск должен происходить при каждом изменении в редакторе, то есть событие OnChange. Проблема заключается в следующем: В строке, до позиции каретки может быть написан текст - Form1.Name и функция POS его находит. То есть после выражения я должен написать Form1. и только после этого строка должна быть найдена. Только целое слово, независимо от количества повторов в самой строке. Вот мой код :

procedure TForm1.Memo1Change(Sender: TObject);
var
X, Y, N: integer;
S, A, B, Full: string;
begin
 S:= 'Form1.'; // Искомая строка
 X:= Memo1.CaretPos.X; // Позиция курсора в строке
 Y:= Memo1.CaretPos.Y; // Номер строки
 Full:= Memo1.Lines[Y]; // Текст всей строки
 A:= Copy(Full, 1, X); // Копируем текст от начала строки до каретки
 B:= Copy(Full, X, Length(Full)); //  Текст от каретки до конца строки
 
 For N:= 1 to X do // Сканируем текст от начала строки до каретки
 begin
 if POS(S, Full) <> 0 then // Если текст найден, тогда
 begin
 ... выполняем действие 1
 end
 else // Иначе
 begin
 ... выполняем действие 2
 end;
 end;

end;

Мне нужно целое слово!, Обратите внимание, в конце слова Form1. стоит точка! То есть, как только я ввожу Form1 и Точку, тогда выполняем действие 1

[Filka]

Для чего это?

[Маховик]

В редакторе после ввода слова Form1. появляется подсказка (список со свойствами формы) и после выбора свойства и нажатия на Энтер свойство вставляется в текущую позицию. Это я сделал, но слово Form1. может встречаться в строке более 1 раза. Функция POS находит всё подряд с вхождениями, а мне нужно только слово целиком. Например
Есть строка 12345 Form1.Name 67890 Form1.
Найти мне нужно только Form1.

[Filka]

http://archive.dialektika.com/archiv...plesChap04.zip

[Маховик]

Это то, что нужно. Спасибо!!!

[Filka]

Пожалуйста.

[Маховик]

Привет. Выкладываю полный исходник подсветки синтаксиса в компоненте Memo. Все и везде советуют применять RichEdit либо компонент SyntEdit. Но, мне всё же удалось добиться подсветки ключевых слов, чисел, и символов в компоненте Memo. Однако, не удалось добиться подсветки однострочных и многострочных комментариев. Правой кнопкой мыши вызывается меню. Всё работает, но как быть с комментариями?

Вложение 78940

Вложение 78941

[min@y™]

Ради чего ты тратил время, если про synedit знал? Жизнь коротка и потерянное время обмену и возврату не подлежит.