[Akim]

задание состоит в том чтобы заставить график двигаться в реальном времени вдоль оси икс) помогите плиз.. заранее благодарен)

while form2.CheckBox1.Checked= false do
begin
form2.Chart1.SeriesList[0].Clear;
for i:=0 to n do
begin
C:=sin((Nf*pi/180)+(2*pi*f*i*dt));
c:=c*a;
form2.Chart1.SeriesList[0].AddXY(i*Dt,c);
end;
form2.ShowModal;
nf:=nf+3;

вот кусок проги.... я пытаюсь заставить график дигаться изменяя начальную фазу nf... но не фига не получается... вернее он движеться, но каждый раз приходиться нажимать кнопку выхода(((

[Yurk@]

А ты поставь всё это дело под обработчик OnTimer с интервалом 1000 мс (1000 мс=1 сек).
Время реальное! и нажимать ничё не придётся!

[<<D>>]

Код:

function bool:boolean;
begin
result:=false;
sleep(10);//Любой промежуток в милисекундах
Result:=true;
end;

procedure TForm1.FormClick(Sender: TObject);
var i:integer;
begin
//100 - кол-во шагов
for i:=0 to 100 do
begin

ЗДЕСЬ ТВОЙ КОД!!!!! 

while bool=false do
end;
end;

[Akim]

спс огромное)

[<<D>>]

Не знаю мне ты спасибо сказал или Yurk'e но всё равно ПОЖАЛУЙСТА!