Как задать шаг в for…to
Как задать шаг в for…to
Как задать шаг в for...to For i:=0 to Maximum do if i mod step = 0 then begin end; Лучше заменять конструкцию FOR TO на WHILE DO : k := k_start; // задание начального значения k_start while k <= k_finish do // проверка достижения верхней границы цикла begin {...} ShowMessage(IntToStr(k)); inc (k, k_step); // увеличение переменной k на шаг k_step end;
