Freien Platz ermitteln

[himitsu]

Delphi-Quellcode:

var B: Boolean;

B := Boolean(3);

if B = True then 
  ShowMessage('True')
else if B = False then 
  ShowMessage('False')
else 
  ShowMessage('hmm?');

if B then 
  ShowMessage('2: True')
else if not B then 
  ShowMessage('2: False')
else 
  ShowMessage('2: hmm?');