Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Как программно посмотреть повторяются ли строки в 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.006 c
3-99842
Петрович
2001-12-26 06:03
2002.01.31
Для чего нужна конструкция For Update


1-99953
Raven
2002-01-14 10:12
2002.01.31
Update для Delphi6


1-99976
Georg
2002-01-14 15:56
2002.01.31
Проблемулька...


3-99890
Sashka
2001-12-28 01:32
2002.01.31
component for MSSql & MySql


3-99867
Andrey196
2001-12-26 20:12
2002.01.31
Где взять отфильтрированные данные таблици





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский