Сравнение вводимых данных с имеющимися

@Kopc · Регистрация: 25.06.2009

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

В общем, суть проблемы заключается в следующем:
есть 3 поля ввода и список (combobox) с наименованиями. Информация в комбобоксе записана в виде "имя, номер в списке, жанр". Всего наименований 100+. Необходимо сделать так, чтобы при вводе в edit, который отвечает за номер, и при попытке добавления нового наименования в список, производилась проверка комбобокса на наличие такого же номера. То есть, если у меня в списке есть номер 1 и я пытаюсь ввести ещё одно наименование с таким номером, необходимо чтоб выдавало мессагу.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
position: integer;
 
begin
 
position:= Pos('edit2.text', 'combobox1.items');
if position <> 0
then
showmessage('Введите другой номер!') 
else
ComboBox1.Items.add(Edit1.text+(', ')+Edit2.text+(', ')+Edit3.text+(''));
 
end;

Использовал этот код, но проблема в том, что в названии тоже могут присутствовать цифры =\ Да и поиск выполняется до первого совпадения. То есть если я ввожу во втором эдите номер 123 и пытаюсь её добавить, вылетает мессага, что такой номер есть, хотя у меня наименований 100 =\
В общем, подскажите кто-нить, что делать... Мб есть какой-то точный поиск, или может стоит решить этот вопрос другим способом...

@Puporev · 06.07.2009, 21:20

Нужно парсить строку. Если Вас интересует только номер, который стоит между первым пробелом и второй запятой. Если под него отводится всегда например 3 позиции, то проверять if copy(pos(' ',combobox1.items[i]+1,3)=edit2.text......
если количество позиций разное, от 1 до 3-х, то надо считать.
s:='';
j:=pos(' ',combobox1.items[i]+1;
while combobox1.items[i][j] in ['0'..'9'] do s:=s+combobox1.items[i][j];
if s=edit2.text......
Это как пример, надо сами строки в комбобокс смотреть.

@Kopc · 06.07.2009, 21:32 **[ТС]**

Кол-во позиций разное:

Morpher, 9, Мультимедиа
Stels, 48, Системное
WebCompressor, 100, Интернет

Если не затруднит, расскажите популярнее, а то не совсем понял, что требуется сделать в моей ситуации...

@Puporev · 06.07.2009, 22:00

Вводим номер в Эдит2. Проверяем все строки в комбобоксе на наличие такого номера.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
k:=0;//считаем что такого номера нет
for i:=0 to count-1 do
 begin
  s:='';
  j:=pos(' ',combobox1.items[i]+1;//позиция первого пробела+1
  while combobox1.items[i][j] in ['0'..'9'] do s:=s+combobox1.items[i][j];//пока цифры, записываем их в промежуточную строку
 if s=edit2.text then
  begin
     k:=1;
    showmessage('Введите другой номер!');
    break;//дальше не проверяем
  end; 
end;
if k=0 then ComboBox1.Items.add(Edit1.text+(', ')+Edit2.text+(', ')+Edit3.text+(''));

Это все до ума надо доводить, я в Делфи не очень, поэтому он-лайн писать правильно не могу, а писать программу лень.

@Kopc · 06.07.2009, 22:04 **[ТС]**

спасибо=) счас буду разруливать=)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.07.2009, 21:20
	Нужно парсить строку. Если Вас интересует только номер, который стоит между первым пробелом и второй запятой. Если под него отводится всегда например 3 позиции, то проверять if copy(pos(' ',combobox1.items[i]+1,3)=edit2.text...... если количество позиций разное, от 1 до 3-х, то надо считать. s:=''; j:=pos(' ',combobox1.items[i]+1; while combobox1.items[i][j] in ['0'..'9'] do s:=s+combobox1.items[i][j]; if s=edit2.text...... Это как пример, надо сами строки в комбобокс смотреть. 0

@Kopc 0 / 0 / 0 Регистрация: 25.06.2009 Сообщений: 6
	06.07.2009, 21:32 [ТС]
	Кол-во позиций разное: Morpher, 9, Мультимедиа Stels, 48, Системное WebCompressor, 100, Интернет Если не затруднит, расскажите популярнее, а то не совсем понял, что требуется сделать в моей ситуации... 0

@Kopc 0 / 0 / 0 Регистрация: 25.06.2009 Сообщений: 6
	06.07.2009, 22:04 [ТС]
	спасибо=) счас буду разруливать=) 0