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,1]);
if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')
then y := y+1
end;
if y<>0 then
Stringgrid3.Cells[0,z] := FloatToStr ((x/y)*0.6+(strtofloat(stringgrid1.cells[10,1])*0.4))
else stringgrid3.cells[0,z]:= 'n.b.';
end;
end;
Hi Ihr seht hier mal mein code zur berechnung der Halbjahresdurchschnittes! dies geht auch für die erste zeite aber bei den anderen funktioniert es nicht! klar mit dem quellcode geht es auch net da nur der wert für die erste zeile berechnet wird doch wenn ich hier:
Delphi-Quellcode:
x := x + StrToInt (stringgrid1.Cells[i,1]);
if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')
für "1" = "z" einsetze was ja dann eigentlich gehen müsste meckert er von wegen ungültiger integerwert oder der gleichen! Was ist falsch? Wo ist mein fehler? denn so wie ihr den quelllcode oben seht geht es ja!
MFG
Bruce86