Delphi-Quellcode:
Result[4] := Result[0]+Result[2]; //engergebnis
if (Result[4] = Result[0] + Result[2]) and (Result[4] = Result[1] + Result[3]) then
Result[4] := Result[1]+Result[3]
else
ShowMessage('Die Zahlen stimmen nicht ');
Läßt sich der Part nicht "kürzen" zu:
Delphi-Quellcode:
Result[4] := Result[0]+Result[2]; //engergebnis
if (Result[4] <> Result[1] + Result[3]) then
ShowMessage('Die Zahlen stimmen nicht ');