• Мария
  • Восстановленный участник
  • На форуме с 2 декабря 2004г.
  • Сообщений: 31
  • Спасибо: 0

Тема: Чтение выбранных элементов поля

С помощью функций start_list,add_list,end_list занесла
данные в list_box.Далее выбираю нужные элементы поля list_box,как прочитать какие элементы выбраны?
Функция get_tile дает номер выбранного элемента,а мне нужно значение.

  • На форуме с 30 марта 2005г.
  • Сообщений: 30
  • Спасибо: 0

Re: Чтение выбранных элементов поля

Функция get_tile дает номер выбранного элемента,а мне нужно значение

Так в чем дело ?
Есть же список элементов который Вы "start_list" "add_list" и "end_list"...
Вот из этого списка и берите элемент (элементы) под номером (номерами), полученным (полученными) с помощью get_tile.

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Чтение выбранных элементов поля

Воспользуйся функцией NTH она возвращает элемент по номеру из списка...

  • На форуме с 30 марта 2005г.
  • Сообщений: 30
  • Спасибо: 0

Re: Чтение выбранных элементов поля

...также следует помнить, что первый элемент списка идет под номером 0.

  • Мария
  • Восстановленный участник
  • На форуме с 2 декабря 2004г.
  • Сообщений: 31
  • Спасибо: 0

Re: Чтение выбранных элементов поля

> Наивный
Я так и делала,просто хотелось упростить этот процесс.

> Евгений

> Наивный
Спасибо,но я все это  знаю.

  • Стас
  • Восстановленный участник
  • На форуме с 26 марта 2004г.
  • Сообщений: 491
  • Спасибо: 0

Re: Чтение выбранных элементов поля

;;; вытаскивание строки из поля списка по индексу (в поле списка сидит список строк), т.е. ф-я вытаскивает строку из списка по идексу
;;; readlist - индекс
;;; displist - исходный список
(defun mk_list (readlist displist / count item retlist)
  (setq count 1)
  (while (setq item (read readlist))
    (setq retlist (cons (nth item displist) retlist))
    (while (and (/= " " (substr readlist count 1))
                (/= "" (substr readlist count 1))
           )
      (setq count (1+ count))
    )
    (setq readlist (substr readlist count))
  )
  (car (reverse retlist))
)