Addieren von Cells?

[dummer_info_schüler]

wie wär´s denn damit?
(wenn es n Spalten untereinander sein sollen)

Delphi-Quellcode:

var x, summe, i, n:integer; // musst du entsprechend ändern, wenn real

begin
  n:=strtoint(inputbox('Spaltenanzahl','Wieviele Spalten sollen   gezählt werden?',''));
  for i:=1 to n do begin  
    x:=strtoint(stringgrid1.cells[1,n]);
    summe:=summe + x;
  end;
  stringgrid1.cells[2,1]:=inttostr(summe);
end;

hast du sowas gesucht?