Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
1-1106227257
Separator
2005-01-20 16:20
2005.02.06
Установка Indy 10.


1-1106730582
SashkoSoft
2005-01-26 12:09
2005.02.06
Достать ресурс из dll


14-1105990364
Lancelot
2005-01-17 22:32
2005.02.06
Гы :)


1-1106488512
ninja
2005-01-23 16:55
2005.02.06
ширина


14-1105969105
Aleksandr
2005-01-17 16:38
2005.02.06
Помнится был сайт...