Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Как программно посмотреть повторяются ли строки в 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 мне льстит, он мой пароль знает, сам он урод, казел, дебил ет.д. Прошу модератора удалить то сообщение.



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
3-99853
kengura
2001-12-25 18:26
2002.01.31
SQL запросы insert и update и memo поля


4-100119
Mikola
2001-12-04 17:11
2002.01.31
Сокеты (Sockets) .Основные принципи роботы с ними. Функции (Win32 API) для роботы с сокетами.


1-99952
Flash .x
2002-01-14 06:11
2002.01.31
DOC FILEZZZ!!! PLZ!!!


3-99905
victor
2001-12-28 08:59
2002.01.31
Добавление поля в таблицу Interbase


3-99898
Nemesis
2001-12-28 11:43
2002.01.31
Поднимая вопрос об отчетах ...