Тема: ComboBox
Показать сообщение отдельно
  #2  
Старый 02.07.2007, 12:31
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Код:
var
  s:string //это твоя добавляемая строка
begin
  {Some code}
  if pos(s,ComboBox.Items.Text)>0 then
     ShowMessage('Попытались записать строку повторно!')
  else
    ComboBox.Items.Append(s);
  {Some code}
end;
Ответить с цитированием