Поиск в Memo

← →
Алексей (2005-01-20 13:43) [0]

var i:Integer; c: string; slovo1: string; begin slovo1:=InputBox("Окно ввода","Буква?",""); C:=slovo1; Memo2.Clear; for i := 0 to Memo1.Lines.Count-1 do if Memo1.Lines.Strings[i][2] = C then Memo2.Lines.Add(MEmo1.Lines.Strings[i]); end;
Смысл кода: юзер вводит букву, далее цикл находит слова с этой буквой в memo1 и переносит найденное в memo2. Хотелось бы также отсеить слова, где нет введённой пользователем буквы, но как?
Короче, if Memo1.Lines.Strings[i][2] = C then как на делфи будет звучать "не равно"?

← →
Alcogol (2005-01-20 13:45) [1]

> как на делфи будет звучать "не равно"?

<> ?

← →
Алексей (2005-01-20 16:51) [2]

<> Кажется, это не то! Я проверил в проге, хотя ошибку при компиляции делфи не выдает!

Короче, if Memo1.Lines.Strings[i][2] = C then как на делфи будет звучать "не равно"?

С ходу только 3 способа придумал:
1. if not (Memo1.Lines.Strings[i][2] = C ) then
2. if (Memo1.Lines.Strings[i][2] = C ) then else ... (тут не равно)
3. if Memo1.Lines.Strings[i][2] <> C then

Поиск в Memo Найти похожие ветки