Проверка двух определенных символов, стоящих перед кареткой

Рейтинг: 0Ответов: 1Опубликовано: 29.12.2014

Так выглядит проверка на один определенный символ, стоящий перед кареткой, а как реализовать проверку на два определенных символа?

if Char(Memo1.Text[Memo1.SelStart])<>'н' then ...
delphi
Источник: Stack Overflow на русском

Ответы

▲ 1Принят

Memo1.Text[Memo1.SelStart+1]?

UPD Вы не поняли. Надо так:

if (Memo1.Text[Memo1.SelStart]<>'о') or (Memo1.Text[Memo1.SelStart+1]<>'н') then ...

или если понятнее будет:

if not((Memo1.Text[Memo1.SelStart]='о') and (Memo1.Text[Memo1.SelStart+1]='н')) then ...