if not abfragen

[Aphton]

Des Problem's Lösung:

Delphi-Quellcode:

var
  e2, e3: Integer;
begin
  e2 := StrToInt( Edit2.Text ) mod 2;
  e3 := StrToInt( Edit3.Text ) mod 2;
  if Boolean( e2 xor e3 ) or ( e2 and e3 = 0 ) then
    ShowMessage( 'Vorbei' );
end;