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
