Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Поиск в 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]

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

---

← →
Ega23 ©   (2005-01-20 17:03) [3]

Короче,  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

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c