while-Schleife verbessern / verschönen

[Khabarakh]

Hm, so vielleicht?

Delphi-Quellcode:

procedure Foo(...);
var
  bCriteria: Boolean;
begin
  for j := 0 to NodesCriteria.Count - 1 do
  begin
    bCriteria := IsHit(FormName, NodesCriteria.item[j]);
    DebugLog('Kriterium ' + IntToStr(j), BoolToStr(bCriteria, True));
    if not bCriteria
      Exit;
  end;
  
  HitNode := Node;
  Inc(Counter);
end;