stringgrid addieren

[horst]

@ibp
ich danke dir für dein Interesse...
leider passiert nix, ich habs nochmal angepasst, es funktioniert jetzt zar das addieren und das zusammenzählen der zellen aber das multipizieren klappt nun nicht mehr.

Delphi-Quellcode:

procedure TForm1.Button7Click(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
        else
        begin
          nr := StringGrid1.Cells[i, y];
          nr := nr;
          sum := sum + strtofloat(nr);
        end;
        sMyExpression := FloatToStr(sum);
        stringgrid1.Cells[13, y] := sMyExpression;
      end;
    end;
  end;
end;