Проверка на совпадения в listbox

@xbron · Регистрация: 25.04.2012

Студворк — интернет-сервис помощи студентам

Цель такова: ИЗ дбгрида переносим названия книг и если вдруг пользователь добавил 2-ю уже существующую в listbox'е книгу, то выводится сообщение.
О самой проблеме: Почему-то он сравнивает только со второй строкой, все последующие не сравнивает, помогите пожалуйста, если можно по понятнее, так как я начинающий

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure Tform_books.Button4Click(Sender: TObject);
var f,i:integer;
begin
listbox1.Items.Add(adoquery1.fieldbyname('Íàçâàíèå_êíèãè').AsString);
if listbox1.Items.Count<>0 then
  for i:=1 to listbox1.Items.Count-1 do
    begin
      f:=listbox1.Items.IndexOf(listbox1.Items.Strings[i]);
      if f=-1 then
        if MessageDlg('Õîòèòå äîáàâèòü óæå äîáàâëåííóþ êíèãó?',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes
        then
          begin
            break;
          end
        else
         begin
          listbox1.Items.Delete(i);
         end;
    end;
end;

@NotBeginner · 16.04.2013, 17:57

попробуй в начале добавь
adoquery1.fist
а в конце
adoquery1.next

@xbron · 16.04.2013, 18:01 **[ТС]**

Сообщение от NotBeginner

попробуй в начале добавь
adoquery1.fist
а в конце
adoquery1.next

Добавить-то добавлю, но к чему это?

@Waddonator · 16.04.2013, 18:11

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i:integer;
    s:string;
    flag:boolean;
begin
   s:=adoquery1.fieldbyname('Название_книги').AsString;
   flag:=false;
   for i:=0 to ListBox1.Items.Count-1 do
      if ListBox1.Items[i]=s then flag:=true;
   if flag then
       begin
          if MessageDlg('Хотите добавить уже добавленную книгу?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             ListBox1.Items.Add(s)
       end
   else ListBox1.Items.Add(s);
end;

@xbron · 16.04.2013, 18:22 **[ТС]**

Сообщение от Waddonator

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i:integer;
    s:string;
    flag:boolean;
begin
   s:=adoquery1.fieldbyname('Название_книги').AsString;
   flag:=false;
   for i:=0 to ListBox1.Items.Count-1 do
      if ListBox1.Items[i]=s then flag:=true;
   if flag then
       begin
          if MessageDlg('Хотите добавить уже добавленную книгу?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             ListBox1.Items.Add(s)
       end
   else ListBox1.Items.Add(s);
end;

Это конечно отличное, но если например я добавил в список 5 записей и 6-я будет такая же как и 1, то он же не сработает?
Проверил, всё отлично работает, но можете прокомментировать ваш код?

@Waddonator · 16.04.2013, 18:32

xbron, это конечно отличный вопрос, но лучше проверить сначала прежде чем вопрос задавать

Добавлено через 8 минут
Комментирую:

1) Заносим название книги из таблицы в переменную
2) Проверяем список на наличие этой книги
3) Если встречается, то спрашиваем, что дальше делать
4) Если не встречается, то молча добавляем

@xbron · 16.04.2013, 18:33 **[ТС]**

Сообщение от Waddonator

xbron, это конечно отличный вопрос, но лучше проверить сначала прежде чем вопрос задавать

Добавлено через 8 минут
Комментирую:

1) Заносим название книги из таблицы в переменную
2) Проверяем список на наличие этой книги
3) Если встречается, то спрашиваем, что дальше делать
4) Если не встречается, то молча добавляем

Вот блин именно то, что я хотел сделать, но нихрена как видите у меня не получилось )) Спасибо

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
	16.04.2013, 17:57
	попробуй в начале добавь adoquery1.fist а в конце adoquery1.next 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	16.04.2013, 18:32
	xbron, это конечно отличный вопрос, но лучше проверить сначала прежде чем вопрос задавать Добавлено через 8 минут Комментирую: 1) Заносим название книги из таблицы в переменную 2) Проверяем список на наличие этой книги 3) Если встречается, то спрашиваем, что дальше делать 4) Если не встречается, то молча добавляем 0