Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.12.2007, 12:12   #1
Arteom
Пользователь
 
Регистрация: 22.08.2007
Сообщений: 59
По умолчанию проверка значений в ListBox

Доброе всем утро!
Подскажите пожалуйста, как разрешить вот какую задачу:
Имеются два ListBox, необходимо сравнивать каждую строчку из первого ListBox с каждой во втором, и если во втором ListBox не окажется строчки из первого, то записать строчку из первого ListBox, не имеющую такой же во втором ListBox в третий ListBox.
Arteom вне форума Ответить с цитированием
Старый 08.12.2007, 12:27   #2
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию Функция AnsiCompareStr

Функция AnsiCompareStr сравнивает String1 и String2 на равенство.

function AnsiCompareStr ( const String1, String2 : string ) : Integer;

Она возвращает следующие значения:
String1: отрицательное число
String1 = String2: 0
String1 > String2: положительное число

Сравнение не затрагивает длину оно выполняется по буквам. Но более длинная строка больше чем короткая.

Сравнение чувствительно к регистру.

Более подробно и примеры использования здесь: http://delphibasics.ru/AnsiCompareStr.php

Обращение к строчке ListBoх'a: ListBox1.Items.Strings[і]
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума Ответить с цитированием
Старый 11.12.2007, 22:21   #3
Arteom
Пользователь
 
Регистрация: 22.08.2007
Сообщений: 59
По умолчанию

Спасибо за помощь, всё получилось. Только как оказалось, основная проблема была всё-таки в правильности организации циклов для сравнения.
Но немного посидев, всё получилось
Arteom вне форума Ответить с цитированием
Старый 15.02.2008, 16:49   #4
f3nix
 
Регистрация: 16.10.2007
Сообщений: 7
По умолчанию

А код можно пожалуйста? Покажи, что получилось, а то я тоже самое кручу, верчу и нефига не получается.
f3nix вне форума Ответить с цитированием
Старый 26.05.2008, 10:20   #5
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

Цитата:
Сообщение от f3nix Посмотреть сообщение
А код можно пожалуйста? Покажи, что получилось, а то я тоже самое кручу, верчу и нефига не получается.
а у меня ещё вопрос по проверке. как определить, что листбокс пустой?
пробовал if ListBox1.Items.Strings[0]='' then, ни в ней выбивает ошибку.
Life if about choices
Make the right choice
TaTT DoGG вне форума Ответить с цитированием
Старый 26.05.2008, 10:28   #6
Gladiator
Пользователь
 
Аватар для Gladiator
 
Регистрация: 18.04.2008
Сообщений: 70
По умолчанию

у меня вот так работает
if ListBox1.Items.Text='' then
Gladiator вне форума Ответить с цитированием
Старый 26.05.2008, 10:29   #7
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

не работает
Life if about choices
Make the right choice

Последний раз редактировалось TaTT DoGG; 26.05.2008 в 10:37.
TaTT DoGG вне форума Ответить с цитированием
Старый 26.05.2008, 10:35   #8
Gladiator
Пользователь
 
Аватар для Gladiator
 
Регистрация: 18.04.2008
Сообщений: 70
По умолчанию

itemindex это номер строки он по умолчанию =-1.с ним не канает!!
Gladiator вне форума Ответить с цитированием
Старый 26.05.2008, 10:44   #9
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

да, спс
заработало
в другом проблема была
Life if about choices
Make the right choice
TaTT DoGG вне форума Ответить с цитированием
Старый 26.05.2008, 10:46   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
ак определить, что листбокс пустой?
If ListBox1.Items.Count=0 then пустой
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск значений Rom1k06 Microsoft Office Excel 11 04.09.2008 05:14
Перевод значений DeDoK Общие вопросы Delphi 3 19.05.2008 08:39
Сложение значений Torrenter Компоненты Delphi 2 11.01.2008 19:14
выбор значений в цикле Melok Паскаль, Turbo Pascal, PascalABC.NET 3 15.12.2007 22:56
Работа с текст. файлом, проверка значений в нем. Vishez Помощь студентам 11 07.05.2007 21:59