Тема: Очистка ComboBox
Показать сообщение отдельно
  #2  
Старый 02.04.2011, 19:34
Assistant Assistant вне форума
Продвинутый
  
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию
Код:
var
  i: integer;
begin
  for i:=0 to ComponentCount-1 do
    if Components[i].ClassName = 'TComboBox' then
      (Components[i] as TComboBox).Items.Clear;
end;
__________________
взялся из неоткуда, ничего не прошу, помогаю просто так
ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя
Ответить с цитированием