Оптимизация If + Or

[Alex Cones]

Требуется помощь в оптимизации и создании функции перемещения:

 Const
  D_NULL  = $0000;
  D_LEFT  = $0001;
  D_RIGHT = $0002;
  D_UP    = $0004;
  D_DOWN  = $0008;

 Procedure MoveP(Direct : Byte);
  Begin
   {..}
  End;

 Procedure ControlClick(X,Y : Integer);
  Begin
   With Player Do
    Begin
     If (XS = X + 1) And (YS = Y     ) Then MoveP(D_LEFT  Or D_NULL ) Else
     If (XS = X + 1) And (YS = Y + 1 ) Then MoveP(D_LEFT  Or D_DOWN ) Else
     If (XS = X + 1) And (YS = Y - 1 ) Then MoveP(D_LEFT  Or D_UP   ) Else
     If (XS = X - 1) And (YS = Y     ) Then MoveP(D_RIGHT Or D_NULL ) Else
     If (XS = X - 1) And (YS = Y + 1 ) Then MoveP(D_RIGHT Or D_DOWN ) Else
     If (XS = X - 1) And (YS = Y - 1 ) Then MoveP(D_RIGHT Or D_UP   ) Else
     If (XS = X    ) And (YS = Y     ) Then MoveP(D_NULL  Or D_NULL ) Else
     If (XS = X    ) And (YS = Y + 1 ) Then MoveP(D_NULL  Or D_DOWN ) Else
     If (XS = X    ) And (YS = Y - 1 ) Then MoveP(D_NULL  Or D_UP   );
    End;
   DrawMap;
  End;

Проблемы в создании функции перемещения - как сделать проверку возможных состояний? Простыми IFами?

If Direct = D_DOWN Then ВНИЗ
If Direct = D_DOWN Or {Или And - запутался} D_LEFT Then ВНИЗ И ВЛЕВО
etc.

И можно ли что-то улучшить в ControlClick?

[mutabor]

1. Проверка либо if либо case, третьего не дано.
2. Если ты хочешь побитово слаживать флаги, то оператор или + или or.

p.s. Высчитай заранее значения для диагональных направлений, забей их в константы и используй проверку case Direct of
Если сделать Direct перечисляемым типом, то новые версии IDE Дельфи даже за тебя будут значения подставлять (правда не всегда срабатывает, но бывает =)).
Case предпочтительнее с точки зрения оптимизации, т.к. проверка всего одна производится, в отличии от серии if операторов.

[spamer]

Насчет

Простыми IFами?

возможно удобнее будет через Case .. Of
EDIT:
ой, mutabor опередил...

[Alex Cones]

А Case адекватно поддерживает Or?

[mutabor]

Сообщение от Alex Cones

А Case адекватно поддерживает Or?

Нет, нужны константы, я поэтому и говорю, определи их заранее, их не так много, четыре всего. Хотя если слаживать константы, думаю можно, компилятор посчитает сразу, главное - не использовать переменные.

Что касается ControlClick, то тут есть простор для оптимизации. Т.к. у тебя побитово слаживаются, то есть возможность добавлять по ходу флаги, в зависимости от условий, т.е. по условиям если xs больше x то добавляем один флаг, если ys > y то другой плюсуем (просьба не понимать буквально, я концепцию хочу донести просто), таким образом можно свести к нескольким выражениям, но читаемость кода пропадет, я лишний раз бы подумал делать ли так. Т.е. по этому алгоритму в коде будет всего один вызов функции MoveP, а перед ним несколько выражений с рассчетами флагов, полученное значение и передадим в функцию.

[Alex Cones]

Спасибо. Так и поступим...

p.s. Высчитай заранее значения для диагональных направлений, забей их в константы и используй проверку case Direct of

Обошелся всего с четырьмя. Case прекрасно поддерживает Or.

[Пепел Феникса]

уже не очень надо(пока у нас форум барахлил), но тем не менее выложу на будущее:

Case предпочтительнее с точки зрения оптимизации, т.к. проверка всего одна производится, в отличии от серии if операторов.

поддерживаю, сводится к вычитаю, без явного сравнения(правда оно тоже на вычитании основано, но там неявное вычитание, через теневые регистры...что медленнее(особенно серия сравнений)).
насчет case некоторые правила оптимизации в нем(тут все про беззнаковое сравнение...то есть когда нет отрицательных значений):
1)не стоит сравнивать с нулем(если у вас без знаковое сравнение естественно), лучше использовать else
2)выставлять все по возрастанию.
на примере Алекса это будет

case Direct of
 1{D_LEFT}:ВЛЕВО
 2{D_RIGHT:ВПРАВО
 3{D_LEFT+D_RIGHT}:ПРАВО И ВЛЕВО//не думаю что возможно, так что пропускаем
 4{D_UP}:ВВЕРХ
 5{D_UP+D_LEFT}:ВВЕРХ И ВЛЕВО
 6{D_UP+D_RIGHT}:ВВЕРХ И ВПРАВО
 7{D_UP+D_LEFT+D_RIGHT}:ВВЕРХ И ВЛЕВО И ВПРАВО//не думаю что возможно, так что пропускаем
 8{D_DOWN}:ВНИЗ
 9{D_DOWN+D_LEFT}:ВНИЗ-ВЛЕВО
 10{D_DOWN+D_RIGHT}:ВНИЗ-ВПРАВО
 11{D_DOWN+D_LEFT+D_RIGHT}:ВНИЗ-ВЛЕВО-ВПРАВО//не думаю что возможно, так что пропускаем
 12{D_DOWN+D_UP}:ВНИЗ-ВВЕРХ//не думаю что возможно, так что пропускаем
 13{D_DOWN+D_UP+D_LEFT}:ВНИЗ-ВВЕРХ-ВЛЕВО//не думаю что возможно, так что пропускаем
 14{D_DOWN+D_UP+D_RIGHT}:ВНИЗ-ВВЕРХ-ВПРАВО//не думаю что возможно, так что пропускаем
 15{D_DOWN+D_UP+D_RIGHT+D+LEFT}:ВНИЗ-ВВЕРХ-ВПРАВО-ВЛЕВО
 else НОЛЬ
end;

ну или ошибки показывайте на строках с комментами(то что поидее невозможно)
вот так самое быстрое поидее
цифры можно заменить на константы которые в комменте({})
(есть у меня еще идея, но это на асме надо писать, и это извращение уже...и я не уверен что оно быстрее(знаю точно что в коде скорее всего больше выйдет даже)