Тогда все If ... Then ... Else ... , где логика в Then и Else противоположна, просто делайте как: А:= В (в В условие If, в А параметр из Then ... или Else ...).
И Q=> тоже лишние, можно удалить.
Код:If B=true (Можно написать так: If B) then A:=true else A:=false Меняете на: A:=B





Ответить с цитированием