Einzelnen Beitrag anzeigen

henk

Registriert seit: 3. Okt 2008
14 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

stringgrid, spaltensumme in endzeile

  Alt 26. Jan 2010, 22:57
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..
  Mit Zitat antworten Zitat