hallo....
ich möchte zu dem code unten zwei funktion hinzufügen.
stringgrid2.Cells[8, y] := FloatToStr(sum);
in zelle 8 werden die einzelnen zellen einer zeile zusammengerechnet.
die wiederum zu zelle 9 hinzugerechnet werden sollen, (in zelle 9 steht -12)
wenn dann die 0 in zelle 9 erreicht ist soll die zelle rot werden.
das hinzuzählen habe ich so versucht, was aber nicht klappt.
ganz zu schweigen vom färben der zelle, wer mag mir helfen ?
Delphi-Quellcode:
// *****
s:= FloatToStr(StringGrid2.Cells[9, y]);
j:= FloatToStr (StringGrid2.Cells[8, y]);
x := s+j;
stringgrid2.Cells[9, y] :=FloatToStr(x);
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var
s ,j, nr, x,sum: double;
i, y:integer;
begin
for y := 1 to 52 do //52 wegen der Anzahl der Wochen im Jahr
begin
sum := 0;
for i := 1 to 7 do //Tage in der Woche
begin
if STringGrid2.Cells[i, y] <> '' then
begin
nr := StrToFloat(StringGrid2.Cells[i, y]);
Inc(sum, nr);
end;
stringgrid2.Cells[8, y] := FloatToStr(sum);
// ***** hier hatte ich den code eingefügt
end;
end;
end;