Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 2 756

Раздел: Delphi » Работа с компонентами и библиотеками
/ вопрос открыт /

Здравствуйте!
У меня есть код для кнопки, которая перемещает выделенные объекты из ListBox1 в ListBox2, можно ли его упростить, если да, то как?)

Приложение:
  1. procedure TForm1.Button7Click(Sender: TObject);
  2. var ix:integer;
  3. begin
  4. with ListBox1 do begin
  5. if SelCount < 1 then exit;
  6. for ix := 0 to Items.Count-1 do
  7. if Selected[ix] then ListBox2.Items.Add(Items[ix]);
  8. for ix := Items.Count-1 downto 0 do
  9. if Selected[ix] then Items.Delete(ix);
  10. end;
  11. end;


Наталья В. Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Наталья В. (статус: Посетитель)
Вопрос отправлен: 9 мая 2009, 21:05
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Второй цикл 

for ix := Items.Count-1 downto 0 do
  if Selected[ix] 
    then Items.Delete(ix);
можно заменить на DeleteSelected() – это метод TListBox.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 9 мая 2009, 21:22


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 9 мая 2009, 21:42; участников в обсуждении: 1.
Вадим К

Вадим К (статус: Академик), 9 мая 2009, 21:42 [#1]:

Не понимаю, зачем это упрощать. Это и так написано просто...
Галочка "подтверждения прочтения" - вселенское зло.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 07:25
Выполнено за 0.02 сек.