Осуществляет выход из цикла For до его нормального завершения.

Exit For

NumberVar Counter;

StringVar Accum;

for Counter := 1 to 1000 step 2 do (

Accum := Accum & ToText(Counter);

If Len (Accum) > 245 Then Exit For;

);

Accum

\

возвращает строку, хранящуюся в переменной Accum, которая состоит из “1.003.005.007.009.00” и так далее. Внутри цикла выполняется проверка на предмет превышения переменной Accum длины в 245 символов, и при выполнении этого условия выполнение цикла прекращается.