В процесі роботи операторів циклу. в залежності від додаткових умов встановлених всередині циклу, іноді буває необхідно достроково завершити виконання циклічних операцій. Щоб негайно завершити поточний оператор циклу можна скористатися підпрограмою Break без параметрів.
Давайте створимо такий додаток Delphi: До нас приїхали гості і нам потрібно придбати 12 пляшок вина, в нашому місті 30 магазинів, але в будь-якому магазині обмеження дають по 2 пляшки. Питання скільки магазинів треба відвідати щоб придбати необхідну (хто не вживає вино може в дану програму занести буханку хліба замість пляшки).
Але формі розташуємо просту кнопку і компонент Label, в кінці він вкаже нам необхідне число відвідувань магазинів. Оброблювач кнопки буде такою:
SUM - це підсумкове число необхідного нам товару. N - це кількість магазинів в місті. Ми перевіряємо, оператором знизу, чи достатньо у нас необхідного:
і якщо потрібну кількість у нас є то можна йти додому і відпочивати, а цикл завершити.
Підсумок: в даній статті ми розглянули можливість дострокового завершення циклу за допомогою процедури break.