Wieviel mal OR/AND ?

[BillieJoe90]

Mir fällt nur das ein:

Delphi-Quellcode:

procedure Irgendwas;
var i:Integer;
begin
  i := 0;
  if (gettake1 = ziffer) OR (gettake2 = ziffer) OR (gettake3 = ziffer) then begin
    if (gettake1 = ziffer) then
      i := i + 1;
    if (gettake2 = ziffer) then
      i := i + 1;
    if (gettake3 = ziffer) then
      i := i + 1;

    showMessage(IntToStr(i) + 'x aufgetreten');

    // Weiter in der Prozedur...
  end;
end;