hallo...
es geht um ein stringgrid.
wenn in einer stringgridzelle z.b. 3*4 steht dann wird das ergebnis (12) in zelle 23 eingetragen.
zusätzlich soll das (addieren)
berücksichtigt werden, also wenn 12+2 in einer zelle steht soll in zelle 23 eingetragen werden
ich bekomme bei meinen versuchen immer nur 2 rechenmöglichkeiten realisiert, nie alle 3 auf einmal.
der betreffende teil des scripts liegt hier.
Delphi-Quellcode:
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