Редко использую некоторые логические функции, поэтому вначале немного подтупливаю, когда

Question

Редко использую некоторые логические функции, поэтому вначале немного подтупливаю, когда

надо их вспомнить )
Гляньте, правильно ли я сокращаю сравнение?
if AHaveAccess and (Sec and ASecValue > 0) or not AHaveAccess and (Sec and ASecValue = 0) then
заменил на
if AHaveAccess xor (Sec and ASecValue = 0) then

#lazarus #programming #russian

0

12.02.2024

15 ответов

38 просмотров

Alexey Kulakov

заменяй условия на более простую форму "на бумажке" и получится: if (A and B) or (!A and !B), а дальше арифметика

0

5 месяцев назад

Александр (Rouse_) Багель

я вообще такие "оптимизации" стараюсь не использовать ибо вредит чтению кода. Вот как пример, буквально сегодня утром писал этот кусок, вместо этого можно было написать одну строчку, как я обычно и делаю: Result := not (Param.DrawOnlySelectedArrow and not Selected); но тогда оно станет плохо читаться (в данном конкретном случае).

0

5 месяцев назад

Alexey Kulakov

Александр (Rouse_) Багель

я вообще такие "оптимизации" стараюсь не использов...

Result:= not Param.DrawOnlySelectedArrow or Selected

0

5 месяцев назад

Александр (Rouse_) Багель

Alexey Kulakov
Result:= not Param.DrawOnlySelectedArrow or Select...

Да вариантов море - но нормально читаемый на скрине.

0

5 месяцев назад

Alex Egorov Автор вопроса

Александр (Rouse_) Багель

я вообще такие "оптимизации" стараюсь не использов...

Тут просто у тебя сокращение сложночитаемой - два not, а вот если написать: Result := Selected or not Param.DrawOnlySelectedArrow; То читабельно

0

5 месяцев назад

Alexey Kulakov

Alex Egorov
Тут просто у тебя сокращение сложночитаемой - два ...

вот и я о том же

0

5 месяцев назад

Александр (Rouse_) Багель

Alex Egorov
Тут просто у тебя сокращение сложночитаемой - два ...

ну кстати да, чето я видимо утром мало кофе выпил...

0

5 месяцев назад

Igor

Александр (Rouse_) Багель
Да вариантов море - но нормально читаемый на скрин...

if Selected then Result := True else Result := not Param.DrawOnlySelectedArrow;

0

5 месяцев назад

Александр (Rouse_) Багель

Igor
if Selected then Result := True else Result :=...

блин, пока печатал ты пофиксил :)

0

5 месяцев назад

Iluha Companets

Стикер

0

5 месяцев назад

Iluha Companets

Александр (Rouse_) Багель

я вообще такие "оптимизации" стараюсь не использов...

вот именно это я имел ввиду, когда недавно говорили про "оптимизацию xor'ами"

0

5 месяцев назад

Alex Egorov Автор вопроса

Я тоже стараюсь скобками пользоваться, но конкретно тут появятся двойные скобки справа у условий и читабельность становится хуже: if (AHaveAccess and (Sec and ASecValue > 0)) or (not AHaveAccess and (Sec and ASecValue = 0)) then Тут уже надо взглядом отсчитывать эти скобки, по крайней мере для меня это не удобно

0

5 месяцев назад

Iluha Companets

Alex Egorov
Я тоже стараюсь скобками пользоваться, но конкретн...

ну, форматирование с переносом строк тоже никто не отменял )

0

5 месяцев назад

Alex Egorov Автор вопроса

Iluha Companets
ну, форматирование с переносом строк тоже никто не...

В редакторре в одну строку это )

0

5 месяцев назад