[koroleva25]

Здравствуйте! Пишу программу по экспертным системам. Помогите найти ошибку в коде.
Программа должна работать следующим образом:
1)Вводим в поля нужное количество признаков и объектов, подтверждаем нажатием
Кнопки «Подтвердить»
2) Вводим любые названия объектов, вводим в поле Edit8 один из них, отмечаем чекбоксы, которые соответствуют выбранному объекту , и нажимаем «Обучение». (Таким образом объект «обучается», т.е. ему присваиваются признаки выбранные нами в поле Мемо1 из всей кучи признаков)
3) Проблема в том, что не получается правильно запрограммировать кнопку «Экспертиза».
При нажатии на неё, с учетом правильно заполненных эдитов – Edit13-Edit18 , в поле Edit21 должен появиться «обученный» объект, но появляется «объект не опознан!»
Почему у меня не выполняется это условие в 216-й строке:

Код:

Edit21.text:= Edit8.Text

[poli-smen]

Сообщение от koroleva25

При нажатии на неё, с учетом правильно заполненных эдитов – Edit13-Edit18 , в поле Edit21 должен появиться «обученный» объект, но появляется «объект не опознан!»
Почему у меня не выполняется это условие в 216-й строке:

Код:

Edit21.text:= Edit8.Text

Поставь точку останова на if (в 215 строке):

Код:

   if s = label6.Caption then
   Edit21.text:= Edit8.Text else
   Edit21.text:= 'объект не опознан!'

А когда в этом месте программа остановится посмотри чему равна переменная 's' и чему равно свойство 'label6.Caption' и тебе сразу станет понятно почему это условие не срабатывает.

[koroleva25]

Спасибо большое! Я поняла и нашла ошибку! Теперь порядок. Продолжаю дальнейшую работу с программой. Работы ещё много. Кстати,

Код:

Поставь точку останова на if

- а как это сделать?

[poli-smen]

Сообщение от koroleva25

Спасибо большое! Я поняла и нашла ошибку! Теперь порядок. Продолжаю дальнейшую работу с программой. Работы ещё много. Кстати,

Код:

Поставь точку останова на if

- а как это сделать?

Стань на строку где надо поставить точку останова и нажми F5 (появится красный кружок), или кликни мышкой в том месте где появляется красный кружок.
Когда программа в этом месте остановится можно продолжить её выполнение клавишей F9 или клавишами F7 и F8 выполнять по шагам.

[koroleva25]

Спасибо !!!

[koroleva25]

Есть вот ещё вопрос, который мучает меня, никак не получается самой решить:
Как сделать, чтобы щелчком по кнопке "Обучение" введенное в Эдит8 название объекта соответствовало массиву "v" (массив формируется щелчками чекбоксов).
Смысл этого - нужно чтобы это название объекта, было распознано в Эдит21, если ввести по одной цифре массива "v" в Эдиты с 13-го по 18-й и нажать на кнопку "Экспертиза".