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

← →
DeUnDe (2001-11-24 23:22) [0]

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

← →
NetBreaker666 (2001-11-25 01:27) [1]

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

← →
Mbo (2001-11-25 07:59) [2]

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

← →
Anonymus (2001-11-25 12:03) [3]

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

← →
NetBreaker666 (2001-11-25 14:25) [4]

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

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

Next...

← →
Evgeny (2001-12-01 06:08) [6]

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

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;

← →
NetBreaker666 (2001-12-01 10:16) [7]

Я урод !

← →
Jurgen (2001-12-01 15:41) [8]

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

← →
NetBreaker666 (2001-12-01 20:51) [9]

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

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