Topic: Просто вопрос

procedure AlternateRowColours;
var
   i,k,r,c: integer;
begin
     r := frmExpenseDS.TableGrid1.RowCount - 1;
     c := frmExpenseDS.TableGrid1.Columns.Count - 1;
     for i := 0 to r do
          begin
           if i mod 2 = 0 then
              begin
                for k := 0 to c do
                  begin
                    frmExpenseDS.TableGrid1.Cell[k,i].Color := $00F0F0F0;
                  end;
              end;
          end;
end;


Уважаемы Дмитрий!
Что означает for i mod 2=0 в данном скрипте?

Re: Просто вопрос

Выполняет деление и возвращает остаток от деления, подрбоней
http://www.delphibasics.ru/Mod.php


в данном скрипте необходима, чтобы раскрашивать строчки через одну.

Dmitry.