|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.04.2014, 18:41 | #1 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
Цикл с условиями. Delphi.
Здравствуйте! Столкнулся с небольшой проблемой - понимаю ее с логической стороны, но знания языка не достаточны. Суть такова - программе вводятся данные по ФАР, и в следствии этих данных она рисует топологию, которую можно в последующем использовать при расчетах в САПР. Мне необходимо было внести изменения позволяющие менять фазу по определенному закону(y=x;x^2;x^3). Характеризуется данное изменение тем что фаза может меняться либо по одной оси - либо по окружности, естественно с разными формулами. Реализация данной функции сделана через checkbox1.
Теперь сама проблема - при попытке ввести 3 checkbox'a с условиями выбора закона изменения(Линейный, Квадратичный, Кубичный), так что если выбран один - оставшиеся два не выбирались и расчет проводился уже от условия выбора checkbox1 - привел к тому что программа воспринимает мои условия как просто текст - и считает все подряд, чего мне естественно не надо. Кто-нибудь подскажите пожалуйста, как это сделать. Собственно сам текст: Код:
|
22.04.2014, 18:49 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
В алгоритм не вникал, но явно с блоками begin ... end чехарда
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
22.04.2014, 18:52 | #3 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
А как обойтись без них? И ваще возможна ли реализация такая?
|
22.04.2014, 19:06 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Без них не нужно обходиться. Их нужно правильно расставить
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
22.04.2014, 21:15 | #5 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
Аватар, не могли бы вы подсказать каким образом. Правда, плохо знаю язык, но главное же мотивация =)
|
22.04.2014, 21:39 | #6 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Ну сначала код отформатировать так, что бы было видно где операторный блок начинается и где заканчивается. Отступами нормальными а не крендебобильно
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
22.04.2014, 22:07 | #7 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
Не совсем наверное наглядно, ну вот примерно вот так вот. Посоветовали еще OnClick сделать, не совсем понимаю что это?
Код:
|
22.04.2014, 22:15 | #8 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
И че толку от такого форматирования? В исходники любого юнита делфи загляните
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
22.04.2014, 22:43 | #9 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
Хорошо, признаю, я не умеют делать то, что вы просите... Но давайте отбросим эти визуальные преобразования, и переступим через ваши профессионально-эстетические взгляды на форматирование текста... Вы можете подсказать мне где я ошибаюсь,мне действительно нужна подсказка человека разбирающегося в Delphi...
|
23.04.2014, 08:54 | #10 |
Регистрация: 18.04.2013
Сообщений: 4
|
Вот немного поправил ваш код.
Вот немного поправил ваш код. В своих проектах я делаю выбор через case of, так для процессора меньше работы и нагрузка меньше.
Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 23.04.2014 в 09:08. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Цикл с условиями и выход из цикла | KJ_ya | Microsoft Office Excel | 5 | 20.01.2013 14:43 |
цикл while (delphi) | mxra1n | Помощь студентам | 8 | 25.06.2012 19:43 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |