Forum: Object-Pascal / Delphi-Language
by Aphton,
12. Okt 2010
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
Forum: Object-Pascal / Delphi-Language
by Aphton,
12. Okt 2010
Des Problem's Lösung:
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;