Berechnung im Stringgrid

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject); 
var z,x,y,i:integer; 
begin 
x:=0; 
y:=0; 
for z := 1 to Stringgrid1.rowcount do 
  begin 
    for i := 1 to 9 do 
      begin 
        x := x + StrToInt (stringgrid1.Cells[i,z]); 
        if (stringgrid1.Cells[i,z] <> inttostr(0)) and (stringgrid1.cells[i,z]<>'') then 
          y := y+1 
      end; 
    if y<>0 then 
      Stringgrid3.Cells[0,z] := FloatToStr ((x/y)*0.6+(strtofloat(stringgrid1.cells[10,z])*0.4)) 
    else 
      stringgrid3.cells[0,z]:= 'n.b.'; 
    x:=0;
    y:=0;
  end; 
end;

Du solltest nach jeder Zeile x und y wieder auf 0 setzen.

Und vielleicht einmal darauf achten richtig einzurücken.

Grüße
Klaus