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

Тема: ObjectDCL. Внесение в ComboBox данных из файла.

Собственно тема говорит сама за себя.
Пытаюсь выполнить наполнение таким образом:

(defun c:rep()
  (Odcl_LoadProject "ReadF.odc" T)
  (setq file (findfile "massa.txt"))
  (setq fd (open file "r"))
  (setq str "...")
  (while str
    (setq str (read-line fd))
    (Odcl_ComboBox_AddString ReadF_DclForm1_ComboBox str)
  )
  (close fd)
  (setq fd nil)
  (Odcl_Form_Show ReadF_DclForm1)
)

Текстовый файл есть, проект ODCL тоже есть. Проверяю работу программы черезо тладчик - данные из файла считываются, вроде все нормально, а список пустой выводится. Попробовал сам процес заполнения поместить в событие OnInitialize для окна - та же история.
Понимаю, что чудес не бывает и где-то ошибка, но не могу понять где. Гляньте свежим взглядом, оно со стороны виднее...

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

Re: ObjectDCL. Внесение в ComboBox данных из файла.

читать списки строк надо не так, а вот так:
;Чтение списка строк из файла:

(defun ReadFile (_file / _str)
  (if (setq _str (read-line _file))
    (if (= (setq _str (vl-string-trim " \t" _str)) "")
      (ReadFile _File)
      (cons _str (ReadFile _file))
      )
    )
  )