Текущий архив: 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.108 c
