[SHIFT999]

Сообщение от Bargest

Сделать X дробным, поменять цикл for на while и увеличивать X на 0.1.

Код:

x:=min;
while x<max do
  begin
  for i:=0 to Length(formula) do
    if formula[i]='x' then
      begin
      Delete(formula,i,1);
      Insert(floattostr(x),formula,i);
      end;
  y:=ScriptControl.Eval(formula);
  formula:=Edit1.Text;
  Form1.Chart1.SeriesList[0].AddXY(x,y,' ',col);
  x:=x+0.1;
  end;

14sdffe.jpg

Похоже, теперь он прибавляет 0.1, притом у тот же, что и на следующем целом...