(evtl. rekursive) schleife

[eroe]

Auch ein netter Vorschlag, jedoch bin ich nur soweit gekommen .. Ich kann doch bei 12 Werten nicht alle in einen Array schreiben der nur zB 2 Felder besitzt o_O
Aber ich vermute mal dass ich dich nur falsch verstanden habe, von daher hier mal der Code von mir, so wie ichs verstanden hab :

Delphi-Quellcode:

begin
  summe:=0;
  setlength(array_str,streicher);
  for i:=2 to StringGrid1.ColCount-3 do
    begin
    summe:=summe+strtoint(StringGrid1.Cells[i,1]);
    array_str[i-2]:=strtoint(StringGrid1.Cells[i,1]);
    end;
end;

PS: Die andere Variante läuft jetzt perfekt