Boolean

[s3c]

var a,b:Boolean; Baiti:Byte;
begin
  a     := true;
  Baiti := 2;
  Move(Baiti, b, 1);
  if a and b then
    ShowMessage('b é true')
  else
  if a and not b then
    ShowMessage('b é false')
  else
  if a then
    ShowMessage('b é ?'); // é aqui que ele vem
end;

[Progr'amador]

Num sei e eu entendi, o que você está falando é deveria entrar o primeiro if? é isso?

bom se for coloque as variaveis a e b entre parenteses, tipo:

var a,b:Boolean; Baiti:Byte;
begin
  a     := true;
  Baiti := 2;
  Move(Baiti, b, 1);
  if (a) and (b) then
    ShowMessage('b é true')
  else
  if a and not b then
    ShowMessage('b é false');
end;

Abs. Progr'amador.

[s3c]

Olá Progr'amador, realmente colocando parênteses, ele responde true p/ b.

Peguei esse erro num programa que estava sujando a variável booleana porque nunca utilizei parênteses p/ variáveis boolean em ifs simples; e realmente não precisa utilizar. Ainda acho que é um furo do compilador.

[Progr'amador]

já tive proplemas como esse, engraçado que no segundo if num precisa de parentes, ele funciona legal.

furo do compilador.

pra mim isso tem outro nome:

BUG - "Comigo é no popular"

Abs. Progr'amador.