Überprüfen, ob Zahl in unregelmäßigen Bereichen

[Sidorion]

Delphi-Quellcode:

iLoop:=0;
iTest:=0;
Result:=-1;
While iLoop<Length(Bereiche)
Do Begin
  iTest:=iTest+Bereiche[iLoop];
  If _iZahl<=iTest
  Then Begin
    Result:=iLoop;
    Break;
  End;
End;