Var
s: TLineSeries;
begin
with Chart1 do
begin
Title.Text.Clear;
Title.Text.Add('График');
s := TLineSeries.Create(nil); s.Clear;
s.Title := 'Линия';
s.Clear;
s.ParentChart := Chart1;
//Timer1.Enabled:=true;
end;
затем пишу вот это
procedure TForm1.Timer1Timer(Sender: TObject);
begin
For i:=0 to 20 do
begin
j := Random(10);
s.AddXY(i,j);
end;
end;
TChar, как добавлять новый точки с проромежутками на одной линии
Здаствуйте, у меня возникла не большая проблема.
Как добавлять на одной линии новые точки
и при запуске этой процедуры возникает ошибка!
Скорорее всего я не правельно пишу добавлени новой точки!
ПОдскажите пожалуйста как правильно...
Я плохо заню TChart, только начал изучать.
ЗАранее спасибо
Как добавлять на одной линии новые точки
Код:
и при запуске этой процедуры возникает ошибка!
Скорорее всего я не правельно пишу добавлени новой точки!
ПОдскажите пожалуйста как правильно...
Я плохо заню TChart, только начал изучать.
ЗАранее спасибо
Код:
var
Form1: TForm1;
s: TLineSeries;
i, j: Integer; (описание ешё забыл)
Form1: TForm1;
s: TLineSeries;
i, j: Integer; (описание ешё забыл)
Ивеняюсь, прошу закрыть тему, сам нашёл ошибку