Topic: Вопрос по циклу

Кто подскажет? Как сделать что бы значение iCol шло с шагом 4

for iCol := 5 to c do

2 (edited by arusinoff 2017-11-30 09:52:10)

Re: Вопрос по циклу

ZBear wrote:

Кто подскажет? Как сделать что бы значение iCol шло с шагом 4

for iCol := 5 to c do

for iCol := 5 to c do
iCol := iCol + 4
...
end?

Или я не понял вопрос? Просто первой строчкой в цикле увеличивай на 4. Или последней, в зависимости от того, что в цикле происходит.

Re: Вопрос по циклу

Сделал так:

iCol := 5;
     While iCol <= c do
       begin
          for iRow := 0 to r do
            if  (datato.TableGrid3.Cells[iCol,iRow])<> '' then
              begin
                 if (datato.TableGrid3.Cells[iCol,iRow])= '1' then datato.TableGrid3.Cell[iCol+1,iRow].Color := clGreen else datato.TableGrid3.Cell[iCol+1,iRow].Color := clYellow ;
              end;
         iCol := iCol+4;
       end;