Проблеммы с заполнение TChart в реальном времени

[kta87]

Вообщем начал делать электронные лабораторные работы для своих студентов. Первая Внешне-скоростная характеристика ДВС. Т.к. данных много предполагается генерировать, то использую поток.

 TSyncThread = class(TThread)
  private
    X: Integer;
    Y: Real;
    procedure SetProgress; //
  public
    constructor Create(CreateSuspended: Boolean); //
   // destructor Destroy; override; //
  protected
    procedure Execute; override; //
  end;

var
  Swich: Boolean;

procedure TSyncThread.Execute;
begin
  if Swich then
    Exit;
  while not Swich do
  begin
    X := GetX();
    Y := HpToKilowatts(109)*((X/5600) + Power(X/5600, 2) - Power(X/5600, 3));
    Synchronize(@SetProgress);
  end;
end; 

procedure TSyncThread.SetProgress;
begin
  Form1.Chart1LineSeries1.AddXY(X, Y);
end;

constructor TSyncThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

Формулы пока в тестовом режиме, но желаемый результат должен выглядеть так: график в реальном времени перестраивается в зависимости от X := GetX() и заполняется, но по факту тупо имею линию.
Как мне достичь отображения реальных колебаний в зависимости от X := GetX()?

[Аватар]

Типа такого?

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Randomize;
  for i:=1 to 50 do Chart1.Series[0].Add(Random(100));
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i: Integer;
begin
  for i:=0 to 48 do Chart1.Series[0].YValue[i]:=Chart1.Series[0].YValue[i+1];
  Chart1.Series[0].YValue[49]:=Random(100);
end;

[kta87]

Аватар, да совершено точно работает как мне и нужно!
Проблемы: 1. Пишу на Lazarus и по этому код типа

Chart1.Series[0]

не прокатит;
2. Т.к. кол-во данных большое, т.е. генератор будет работать достаточно длительные промежутки то опишу в потоке. (таймер в потоке писать страшно)

[northener]

таймер в потоке писать страшно

Почему страшно?
Ну и так есть же ещё
SetTimer function
Её в доппотоке использовать совсем не страшно.

[Utkin]

Какой компонент используете? В Лазарусе много Чартов.

[kta87]

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

Какой компонент используете?

TChart

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

В Лазарусе много Чартов.

Chart там один, в отличии от Delphi все вспомогательные инструменты из него вынесены в отдельные визуальные / не визуальные компоненты.

[Utkin]

Chart там один, в отличии от Delphi все вспомогательные инструменты из него вынесены в отдельные визуальные / не визуальные компоненты.

В стандартном виде при установке по умолчанию 2 - еще один на вкладке Misc.

[kta87]

Utkin, верно говоришь! А ты не в курсе особенностей и отличий?
п.с. И может че подскажешь по теме построения?

[Stilet]

А ты не в курсе особенностей и отличий?

А ты кинь на форму и посмотри
Вообще тебе нужно использовать те что на Chart вкладке и не заморачиваться на другие.

[kta87]

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

А ты кинь на форму и посмотри

Интеллектом блеснул?
офф. топ.: Я по поводу такого рода сообщений писал статейку на хабре. У нее конечно научная задача не в этом, но связанно.