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;

[mkinzler]

Diese Lösung ist immer noch zu einfach

[Aphton]

Man könnte ja - wenn man Lust darauf hat - die Bedingungsabfrage in die GPU verlagern, aber ... btw. das hätten wir übrigens schonmal und zwar als ein gewisses Forummitglied wissen wollte, wie man Zahlen negiert...
*Nostalgie

MfG

[DeddyH]

Außerdem würde wenn ich das richtig sehe jede Kombination ungerader Zahlen als gültig angesehen.