stringgrid, spaltensumme in endzeile

[henk]

moin moin, ich hätte da ein kleines problem, wo ich nicht weiterkomme...
hier ein beispielcode:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
y, x : integer;
summe : double;

begin
 summe := 0;
 with stringgrid1 do
   begin
    for y:= fixedcols to colcount -1 do
      begin
       for x:= fixedrows to rowcount -3 do
         begin
          summe:= summe + strtofloat(cells[y,x]);
          cells[y,rowcount-1] := floattostr(summe);
         end;
      end;
   end;
end;

ich möchte die summe jeder spalte in der endzeile ausgeben, nur funzt das mit den schleifen nicht so, wie ich das will...
es werden in der endzeile ab spalte 2(3) die gesamten zellen addiert ausgegeben, nicht nur die der entsprechenden spalte...

vielleicht hat jemand ne anregung, wie ich den code ändern muss, damit nur die summe der jeweiligen spalte angezeigt wird...

vielen dank schon mal vorraus..

[mkinzler]

Setze mal Summe in der äusseren Spalte zurück

[henk]

wow, das ging schnell... ,
aber wie ist das gemeint?

[mkinzler]

Delphi-Quellcode:

with stringgrid1 do
begin
    for y:= fixedcols to colcount -1 do    
    begin 
        summe := 0;
        ...

[henk]

verdammt, ich hab da zwei tage dran gesessen, ....

vielen dank für die schnelle antwort, jetzt funzt zumindestens das erst mal, werd das in mein prog einbinden.....

nochmal vielen dank, ..., der abend is gerettet..

bei gelegenheit....