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 в данном скрипте?