18.08.2017, 08:10
|
|
Прохожий
|
|
Регистрация: 23.09.2013
Сообщения: 7
Версия Delphi: Delphi 7, XE10
Репутация: 10
|
|
Цитата:
Сообщение от lmikle
Ну не знаю.
Конкретно на Берлин 10.1 вот этот код работает:
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
b1, b2 : Boolean;
begin
b1 := false;
b2 := false;
if (b1 = b2) then showmessage('works!');
if not (b1 xor b2) then showmessage('works!');
end;
Причем оба варианта.
|
Значение первого
Значение второго
Результат
|