Moving Average

[angos]

Hi,

schau dir das mal an. musst du dann nur noch für dich abändern

Delphi-Quellcode:

var
  ir, ic, i, iDurchschnitt: Integer;
  val1, val2, val3: String;
begin

  for ir := 0 to grd.RowCount - 1 do
  begin
    for ic := 0 to grd.RowCount - 1 do
    begin
      if ((ir = 0) and (ic = 0))
        or ((ir = grd.RowCount-1) and (ic=grd.ColCount-1)) then Continue;

      if ic = 0 then
        val1 := grd.Cells[grd.ColCount-1, ir-1]
      else
        val1 := grd.Cells[ic-1, ir];

      val2 := grd.Cells[ic, ir];

      if ic = grd.ColCount-1 then
        val3 := grd.Cells[0, ir+1]
      else
        val3 := grd.Cells[ic+1, ir];

   
      idDurchschnitt := (InttoStr(val1) + InttoStr(val2) + InttoStr(val3)) / 3;

    end;
  end;
end;