| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как программно посмотреть повторяются ли строки в listbox’е или нет?

DeUnDe ©   (2001-11-24 23:22:00) 

Только если надо будет, напишите плиз что надо в uses пихать!
В общем, думаю вопрос понятен, помогите пожалуйста!
Заранее благодарен!

---

NetBreaker666   (2001-12-01 20:51:00) [1]

2Jurgen - это undert мне льстит, он мой пароль знает, сам он урод, казел, дебил ет.д. Прошу модератора удалить то сообщение.

---

Jurgen   (2001-12-01 15:41:00) [2]

2NetBreaker666
ты себе ЛЬСТИШЬ

---

NetBreaker666   (2001-12-01 10:16:00) [3]

Я урод !

---

Evgeny   (2001-12-01 06:08:00) [4]

Не знаю поможет или нет, но я просто не допускал такой ситуации


procedure TOpt_ATM.btnInsertClick(Sender: TObject);
var
S : String;
begin
if (InputQuery("Редактор АТМ", "Введите номер АТМ", S)) and
(S <> "") then
begin
btnErase.Enabled := True;
btnEdit.Enabled := True;

if lbFieldName.Items.IndexOf(S) = -1 then
lbFieldName.Items.Add(S)
else
begin
MessageDlg("Такой номер уже существует!", mtError, [mbOK], 0);
Exit;
end;
inc(EditNumberField);
lbFieldName.ItemIndex := lbFieldName.Items.Count - 1;
FEditLength[lbFieldName.ItemIndex] := 1;
end;
end;


---

DeUnDe   (2001-12-01 01:16:00) [5]

Next...

---

NetBreaker666   (2001-11-25 14:25:00) [6]

Удалено модератором

---

Anonymus   (2001-11-25 12:03:00) [7]

Удалено модератором

---

Mbo   (2001-11-25 07:59:00) [8]

еще такой вариант - заводишь временный TStringList, делаешь у него
Sorted True, а Duplicates - DupError, добавляешь строки из ListBox и ловишь исключение EStringListError.
У листбокса есть свойство Sorted, но не описано, что будет с дубликатами.

---

NetBreaker666   (2001-11-25 01:27:00) [9]

Ну делаешь двойной цикл по всем итемам и смотришь .

---

Наверх