stringgrid addieren

[ibp]

hoffe, dass ich dich richtig verstanden habe...
.. aber so sollte es gehen (nicht getestet)...

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  i, y, x: integer;
  sum, m1, m2: real;
  nr, s, sMyExpression: string;
begin
  for y := 1 to 22 do
  begin
    sum := 0;
    for i := 1 to 12 do
    begin
      if STringGrid1.Cells[i, y] <> '' then
      begin
        nr := StringGrid1.Cells[i, y];
        x := pos('*', nr);
        if x > 0 then
        begin
          m1 := strtofloat(copy(nr, 1, x - 1));
          m2 := strtofloat(copy(nr, x + 1, length(nr) - x));
          sum := sum + (m1 * m2);
        end

        x := pos('+', nr);
        if x > 0 then
        begin
          m1 := strtofloat(copy(nr, 1, x - 1));
          m2 := strtofloat(copy(nr, x + 1, length(nr) - x));
          sum := sum + m1 + m2;
        end;
      end;
    end;
    sMyExpression := FloatToStr(sum);
    stringgrid1.Cells[23, y] := sMyExpression;  ' <- hier sollte wohl 23 stehen oder?
  end;
end;