| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск в Memo [D6, WinXP]
Алексей © (2005-01-20 13:43:00)
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как на делфи будет звучать "не равно"?
Ega23 (2005-01-20 17:03:00) [1]Короче, 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
Алексей (2005-01-20 16:51:00) [2]<> Кажется, это не то! Я проверил в проге, хотя ошибку при компиляции делфи не выдает!
Alcogol (2005-01-20 13:45:00) [3]
> как на делфи будет звучать "не равно"?
<> ?
| |
