[SHIFT999]

Сообщение от poli-smen

Например таким способом не получится посчитать такое выражение: 'exp(x)'.

Ага, я тоже так подумал, так что вот, вроде работает:

Код:

x := min;
    while x < max do
    begin
      s := formula;
      for i := Length(s) downto 1 do
        if s[i] = 'x' then
        begin
          if s[i+1] = 'p' then
            break;
          Delete(s,i,1);
          Insert(floattostr(x),s,i);
        end;
        y := ScriptControl.Eval(s);
        Form1.Chart1.SeriesList[count].AddXY(x,y,' ',col);
        x := x + step;
    end;