[Shelby]

Вот код для получения суммы чётный элементов побочной диагонали.
действие на изменение sp.
sp1,2-это spinedit

Код:

begin
sum:=0;
for i:=0 to sp1.value do
if sg1.cells[i+(sp2.value),i] div 2 then 
sum:=sum+cells[i+(sp2.value];
label2.Caption:=sum;

Admin: Пользуемся тегами!!

мозг мой ваще деградировал
можно подправить код?
спасибо.

[lmikle]

Можно.
Т.е. ты задаешь некоторый столбец-начало диагонали и если число в ячейке четное, то суммируешь его.

Если так, то:

Код:

function GetSum(ACol : Integer);
var
  Sum : Integer;
  I, J : Integer;
begin
  I := ACol;
  J := 0;
  While (I <= N) And (J <= M) Do // M и N - границы матрицы
    Begin
      If sg1.cells[I,J] mod 2 = 0 Then // четное
        Sum := Sum + sg1.cells[I,J];

      // сдвигаемся по диагонали
      Inc(I);
      Inc(J);
    End;
end;  

[Shelby]

procedure TForm1.sp2Change(Sender: TObject);
var
i,j,sum:integer;
begin
sum:=0;
for i:=0 to sp1.value do //неправильный цикл
begin
 if strtoint(sg1.cells[i+(sp2.value),i]) mod 2=0 then
 sum:=sum+strtoint(sg1.cells[i+sp2.value,i]);
 label3.Caption:=inttostr(sum);

чот выдаёт ошибку при изменении значения spinedit...
разобрался...