| 
| 
 | Вопрос # 4 830/ вопрос открыт / | 
 |  Доброго времени суток, уважаемые эксперты!Имеется многооконная программа, которая имеет 5 окон. В каждом окне имеются разные компоненты, в которых выводятся вопросы, при выборе одного из предложенных в компонент TEdit выводится ответ. В окно 5 в компонент TSringGrid выводятся выбранные вопросы из 4-х окон. Если вопрос не выбран то соответственно в 5 окне, в компонент TStringGrid выводится сообщение - Например: "В окне 1 вопрос не выбран".
 Проблема состоит в том, что в 4 окне имеется компонент TStringGrid, в котором выводятся перечень вопросов. Если я не выбираю предложенные вопросы, то в окно 5, все равно сообщение о выброном вопросе, хоть я его и не выбирала, причем всегда выбирается 1-ый из 4-х вопросов.
 Помогите в чем проблема.
 Прикреплена данная программа.
 К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса) 
|  |   Вопрос задала: Geny (статус: Посетитель)Вопрос отправлен: 18 декабря 2010, 14:18
 Состояние вопроса: открыт, ответов: 1.
 |  Ответ #1. Отвечает эксперт: Шичко Игорь Здравствуйте, Geny!Свойство form4.StringGrid1.Row   (в модуле unit5) имеет значение по умолчанию 0.
 Поэтому для анализа не подходит.
 Наиболее простой способ - анализ form4.Edit1.Text
 Примерно так:
 ...
 if form4.Edit1.Text='' then
 a3:='Вопрос в окне "Моя юность" не выбран'
 else
 a3:=form4.StringGrid1.cells[0,b];
 ...
 Удачи.
 
|  | Ответ отправил: Шичко Игорь (статус: 9-ый класс)Время отправки: 18 декабря 2010, 15:06
 Оценка за ответ: 5
 Комментарий к оценке: Большое спасибо все получилось!!! |  
 Мини-форум вопросаВсего сообщений: 1; последнее сообщение — 18 декабря 2010, 14:57; участников в обсуждении: 1. 
|   | min@y™ (статус: Доктор наук), 18 декабря 2010, 14:57 [#1]:Ни хрена не понял. Прикреплённый файл не смотрел.
 Какова цель программы?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |