Ну так в случае:
Series1.AddXY(Double(now), strtoint(Edit9.Text), '', clRed);
также никакой реакции.
Еще раз попробую объяснить, что необходимо сделать:
на первый таймер прописываю код:
Код:
procedure TMainForm.Timer4Timer(Sender: TObject);
begin
if t = strtoint(Edit7.Text) then
begin
Timer4.Enabled:= false;
exit;
end;
t:=t+1;
edit9.text:= inttostr(t);
end;
На второй таймер:
Код:
Series1.AddXY(Double(now), strtoint(Edit9.Text), '', clRed);
Далее:
Код:
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
Timer2.Enabled:=true;
Timer4.Enabled:=true;
end;
Температура повышается, но график не рисуется