Главная страница
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.045 c
14-1106092204
noone_____
2005-01-19 02:50
2005.02.06
inttostr in cpp


9-1098833740
Зелёный Буран
2004-10-27 03:35
2005.02.06
Ужасная проблема с изометрией... Помогите :)))


3-1105334675
first_aid
2005-01-10 08:24
2005.02.06
Други помогите Interbas совский запрос переделать в Access овский


14-1106040354
mac
2005-01-18 12:25
2005.02.06
векторная графика


14-1105711357
klyg
2005-01-14 17:02
2005.02.06
Выбор темы для дипломного проекта