Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Непонятки с TChart [D7, XP]


Maxim-us ©   (2011-06-24 16:08:00) 

Здравствуйте мастера!
Не пинайте за детский вопрос. Изучаю компонент TChart. Кинул на форму два чарта, в Chart1 надо выводить один график, в Chart2 другой(совмещать на одном чарте нельзя). В Chart1 строю график функции так:Series1.AddXY(x,y,'',clblue) (значения x и y вычисляю и подставляю в цикле по формуле). Все хорошо рисует в Chart1 до момента когда надо вывести график второй функции в Chart2. Тогда прога вылетает с ошибкой. Вывожу второй график так:Series2.AddXY(x,y,'',clred). Как правильно вывести два графика в разные чарты чтобы не было ошибки?


Maxim-us   (2011-06-24 17:51:00) [1]

>SQLEXPRESS
Спасибо большое! Все заработало! :)


SQLEXPRESS   (2011-06-24 17:43:00) [2]

да


Maxim-us   (2011-06-24 17:24:00) [3]

>SQLEXPRESS
cht1 и cht2 компоненты Chart1 и Chart2 с измененными Names ?


SQLEXPRESS   (2011-06-24 17:15:00) [4]

работает

uses Series;
procedure TForm1.btn1Click(Sender: TObject);
var
 S1, S2 : TLineSeries;
 i: Integer;
begin
  s1 := TLineSeries.Create(nil);
  s1.Clear;
  s1.ParentChart := cht1;

  s2 := TLineSeries.Create(nil);
  s2.Clear;
  s2.ParentChart := cht2;

  for i := 0 to 10 do
  begin
    s1.AddXY(i, Random(10), '', clRed);
    s2.AddXY(i, Random(10), '', clBlue);
  end;

end;


SQLEXPRESS   (2011-06-24 16:48:00) [5]

показывай код на создание серий
и текст ошибки


Ega23   (2011-06-24 16:42:00) [6]


> хотя серию во втором чарте так и обозвал Series2


Series2 - это Name или Caption?


Maxim-us   (2011-06-24 16:41:00) [7]

{1-ый график}
for t:=0 to 12 do
 begin
 x:=3,5*t+12;
 y:=7,2*t-3;
 Series1.AddXY(x,y,'',clblue);
 end;
{2-ой график}
for t:=13 to 24 do
 begin
 x:=7,2*t-3;
 y:=3,5*t+12;
 Series2.AddXY(x,y,'',clred);
 end;
При попытке приписать явно 2-у чарту Chart2.Series2.AddXY(x,y,'',clred) ошибка компиляции "Неизв.идентификатор Series2", хотя серию во втором чарте так и обозвал Series2


Ega23   (2011-06-24 16:41:00) [8]


> Тогда прога вылетает с ошибкой.


Код вывода в студию.


SQLEXPRESS   (2011-06-24 16:30:00) [9]

код давайте, это все разговоры


Наверх

Титульная страница Поиск, карта сайта Написать письмо