stringgrid zusammrechnen und färben

[horst]

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;

[Luckie]

s:= FloatToStr(StringGrid2.Cells[9, y]); Ich glaube kaum, dass in der Zelle ein Float drinsteht.

Und das nächste mal bitte die Fehlermeldung sagen, sonst ist das hier nur ein Rumgerate.

[horst]

hallo luckie
doch das steht da drinnen...
FloatToStr wegen evt. kommas.

es gibt keine fehlermeldung.
nur das beim ersten button-klick noch alles in ordnung ist, aber bei jedem weiteren klick, sich das was im stringgrid steht verdoppelt.
http://www.fusshoeller.com/screens/tabelle_1.jpg
sie summe stimmt mittlerweile (auf dem screen nicht)
summe ist
stringgrid2.Cells[8, y] := FloatToStr(sum); differenz ist
stringgrid2.Cells[9, y] := FloatToStr(sum);