Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблемма, с вложенными операторами.. IF 
:(
    Опции темы
S.A.G.
Дата 17.4.2007, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


не эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

Репутация: нет
Всего: 19



Есть три переменные a,b,c. a - типа перечисления; b,c - типа boolean. В таком коде который содержиться в неком методе объекта
Код

begin
//some code here
if (a = SomeValue) then
  if (b and c) or ((not b) and (not c)) then //сразу после проверки этого условия выполнение переходит в.. КОНЕЦ МЕТОДА!!!
  //some code here
  else
  //some code here
else
  if (b and (not c)) or ((not b) and c) then
  //some code here
  else
  //some code here
end;

случаеться странный глюк..

Это происходит при отслеживании выполнения кода в методе после установки breakpoint-а при входе в метод (на begin) (F7, F8)

Добавлено через 12 минут и 39 секунд
причем это случаеться и в том случае когда условие.. истинное! Странно и почему бы не перейти на нужный участок кода? :(

Это сообщение отредактировал(а) S.A.G. - 17.4.2007, 12:51


--------------------
Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan
PM   Вверх
Bose
Дата 17.4.2007, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 8
Всего: 51



Во-первых, оптимизация выключена?
Во-вторых, для избежания путаницы, вложенные Ifы лучше обрамлять блоками 
Код

begin
end;

PM MAIL WWW Skype   Вверх
greenpc
Дата 17.4.2007, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



S.A.G., попробуй begin ... end' ом разрулить.

PM   Вверх
Alexeis
Дата 17.4.2007, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



S.A.G., думаю оптимизатор делфи. Попробуй упростить логическую конструкцию или отключи оптимизацию {$O-} код без оптимизации {$O+}


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
S.A.G.
Дата 17.4.2007, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


не эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

Репутация: нет
Всего: 19



Сейчас попробую..

З.Ы. Ну просто люблю этот форум! Вопрос и сразу ответ.. smile

Добавлено @ 13:04
Project - Options - Optimization - снял галочку, перекомпилил проект и.. ничего. Все то же самое.

З.Ы. Юзаю Delphi 7 Personal Lic

Добавлено @ 13:12
Гм, ничего не понимаю, сделал обрамление - все стало работать, убрал обрамление - все тоже работает как будто бы мне приснилась ошибка но она была! Кто-нибудь может объяснить что же все-таки произошло? И есть ли гарантии что код будет работать стабильно при убраном обрамлении? С ним как-то странно замусорено выглядит код(((

Это сообщение отредактировал(а) S.A.G. - 17.4.2007, 13:13


--------------------
Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan
PM   Вверх
Snowy
Дата 17.4.2007, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Нужно чётко определить зоны
Код

begin
  if (a = SomeValue) then
  begin
    if (b and c) or ((not b) and (not c)) then
      //some code here
    else
      //some code here
  end else begin
    if (b and (not c)) or ((not b) and c) then
    //some code here
    else
    //some code here
  end;

end;

PM MAIL   Вверх
S.A.G.
Дата 17.4.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


не эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

Репутация: нет
Всего: 19



Гм, так первый код же синтаксически правильный. И даже сейчас работает хотя поначалу не работал...


--------------------
Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan
PM   Вверх
Alexeis
Дата 17.4.2007, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Ничего подобного не наблюдаю. Использовал следующий код
Код

procedure TForm1.Button1Click(Sender: TObject);
var
 a, SomeValue : byte;
 b, c         : boolean;
begin
a := SomeValue;
{$O-}
//some code here
if (a = SomeValue) then
  if (b and c) or ((not b) and (not c)) then //сразу после проверки этого условия выполнение переходит в.. КОНЕЦ МЕТОДА!!!
  //some code here
  else
  //some code here
else
  if (b and (not c)) or ((not b) and c) then
  //some code here
  else  ;
  //some code here
{$O-}
  Form1.Caption := '';

end;


Добавлено через 2 минуты и 30 секунд
S.A.G., попробую предположить, что где-то произошел Access Violation и процедура досрочно завершилось.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 17.4.2007, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Цитата(S.A.G. @  17.4.2007,  12:41 Найти цитируемый пост)
 if (b and c) or ((not b) and (not c)) then //сразу после проверки этого условия выполнение переходит в.. КОНЕЦ МЕТОДА!!!
А собственно, куда ему ещё идти?
По логике ему больше выполнять тут нечего, вот и идёт в конец.
PM MAIL   Вверх
S.A.G.
Дата 17.4.2007, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


не эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

Репутация: нет
Всего: 19



По моей логике есть куда. Я же там написал "//some code here" - это означает не просто комментарий а некоторый код заключенный в операторные скобки begin..end, причем они есть везде.

Эта ошибка также возникала и в операторе case, где тоже после проверки условия в операторе if весь оператор case пропускался и выполнение программы перескакивало в конец метода. Поэтому-то я и заменил оператор case составными if.

Наверное они обрабатываються похожим образом поэтому это и не решило проблемы. Оператором case хотелось немного разбить условия, структурировать их.

Добавлено @ 15:28
Добавлено @ 13:26
S.A.G., попробую предположить, что где-то произошел Access Violation и процедура досрочно завершилось.

Незнаю код у меня там предельно простой, скорее всего произошел какой-то глюк среды..

Это сообщение отредактировал(а) S.A.G. - 17.4.2007, 15:29


--------------------
Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan
PM   Вверх
Sunvas
Дата 17.4.2007, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 2
Всего: 89



S.A.G., а если скомпилить файл и запускать не из-под среды?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Bose
Дата 17.4.2007, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 8
Всего: 51



Цитата(S.A.G. @  17.4.2007,  13:00 Найти цитируемый пост)
Добавлено @ 13:04Project - Options - Optimization - снял галочку, перекомпилил проект и.. ничего. Все то же самое.З.Ы. Юзаю Delphi 7 Personal Lic
Добавлено @ 13:12Гм, ничего не понимаю, сделал обрамление - все стало работать, убрал обрамление - все тоже работает как будто бы мне приснилась ошибка но она была! Кто-нибудь может объяснить что же все-таки произошло? И есть ли гарантии что код будет работать стабильно при убраном обрамлении? С ним как-то странно замусорено выглядит код(((

Видимо в первый раз этот модуль не перекомпилировался без оптимизации. Надо было переbuildить  smile 
PM MAIL WWW Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.3831 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.