(evtl. rekursive) schleife

[bttb930]

so könnte es gehen

Delphi-Quellcode:

var
  j, summe, anz, minwert: Integer
begin
  summe := 0;
  minwert := 1000000;
  for j := 0 to StringGrid1.ColCount do
    if anz > 0 then
    begin
      dec(anz);
      minwert := min(minwert, StrToInt(StringGrid1.Cells[j,i]);
    end
    else
    if minwert < strtoint(StringGrid1.Cells[j,i]) then
    begin
      summe := summe + minwert;
      minwert := strtoint(StringGrid1.Cells[j,i]);
    end
    else
      summe:=summe+strtoint(StringGrid1.Cells[j,i]); 
end;