|
Registriert seit: 31. Mai 2009
1.198 Beiträge
Turbo Delphi für Win32
|
AW: if not abfragen
12. Okt 2010, 13:25
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;
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
|