[Grafrada]

Кто-нибудь подскажите, пожалуйста, как ускорить или замедлить цикл.
У меня в программе есть график, который изменяется с течением времени. Я хочу его ускорить, либо замедлить. Но этого не получается. То есть пока не пройдет основной цикл, т.е в реальном времени, ускорить или замедлить не получается. Как мне подчинить процедуры друг другу, т.е сделать независимыми. Заранее спасибо. Уже всю голову сломал)))

[lmikle]

Ничего не понял. Ты хоть код кинь (не обязательно весь, только значащие части).

[Grafrada]

Код:

begin//Распределение насыщенности
           //Otvet:= StrToFloat(eVremia.Text);
            TTek:=0;
            alfT:=1.0;
           repeat
              pVremia.Enabled:=true;
              pVremia.Visible:=true;
              Chart1.AnimatedZoom:=true;
              Chart1.AnimatedZoomSteps:=8;
              Chart2.AnimatedZoom:=true;
              Chart2.AnimatedZoomSteps:=8;
              Xfr:=dFLfr*Ttek*86400*Uo/m;
              RazrabGrafik(TTek);
              TTek:=TTek+alfT*dTras;
              eVremia.Text:=FloatToStr(Ttek);
              repaint;
              Sleep(200);
            until (TTek>Tras);
           end;
procedure TForm1.bZamedlenieClick(Sender: TObject);
  begin
    alfT:=alfT*0.5;
  end;

procedure TForm1.bUskorenieClick(Sender: TObject);
  begin
    alfT:=alfT*2;
  end;

Admin: Пользуемся тегами!

Вот у меня есть такой цикл по времени Ttek. Я хочу на форме поставить две кнопки : "Ускорить" и "Замедлить". Но процедуры друг другу не подчиняются. То есть пока не выполнится основной цикл, замедление или ускорение не происходит.

[lmikle]

Ага, понятно. Т.е. не изменить скорость работы самомго цикла, а изменить шаг шкалы.

А где описана переменная alfT?

[Grafrada]

Код:

private
    { Private declarations }
     procedure GrafikFLev;
     procedure RazrabGrafik(t: extended);
  public
    { Public declarations }
  end;

procedure Leveret(Sv,Svo,Sno,nv,nn,mu_v,mu_n:extended; var fkv,fkn,FL:extended);

var
  Form1: TForm1;
  alfT: extended;
implementation

lmikle: Хде теги??? Хто в read-jnly захотел?

[lmikle]

1. Я в твоем коде не вижу нигде добавления точек в диаграммы.
2. Проверь все типы данных. Не может там быть попутного округления, типа вычислений с использованием целых и дробных переменных. В этом случае будет округление или нет зависит от порядка следования переменных.

А так по логике вполне нормально.