График повышения температуры в реальном времени

[utro35]

Здравствуйте.
В программе нужно сделать график температуры.
Происходит повышение, отображается в edit. Время системное.
Делаю так: Series1.AddXY(strtoint(Edit9.Text), '''' + TimeToStr(now) + '''', clRed);
Пишет incompatible files: Double and String
Как будет правильно?

[Rin]

Вы, наверное, и сами поняли, что несовпадение типов( откуда у вас там слово files взялось Х_х) : вещественный тип и строка.
А правильно будет навести мышку на AddXY, зажать CTRL, и щёлкнуть левой клавишей мыши на "посиневший" AddXY. Откроется модуль , в котором описан этот метод, при чём откроется именно на описании этого метода и его входных параметров. Бывает так, что списка параметров нет, и тогда вам нужно будет повторить описанные выше действия уже в открывшемся модуле. Или подняться в начало модуля, перевести каретку на первую строку, нажать CTRL+F, ввести "AddXY" в поле для поиска, выставить forvard в свойствах поиска и нажать ок .Повторный поиск с введёнными данными поиска осуществляются кнопкой F3. Правда ещё проще навести мышку на AddXY и подождать, пока рядом не появится окошко с количеством и типами входных параметров, и если это функция, то и с типом результата.

[GunSmoker]

Название AddXY намекает, что ей требуются две координаты для установки точки - X и Y. У тебя же число, метка, цвет. Что-то я не вижу две координаты.

[IliaIT]

form1.Analiz_G.Series[0].AddXY(tdata_val,StrToFloat(form1.K oorGraf.Cells[3,i]), form1.KoorGraf.Cells[4,i], clRed);
или
form1.Analiz_G.Series[0].AddXY(tdata_val,StrToFloat(form1.K oorGraf.Cells[3,i]), '', clRed); //(это предпочтительнее)
где
tdata_val:=StrToDateTime(form1.Koor Graf.Cells[4,i]);
form1.KoorGraf.Cells[4,i] это дата и время в нужном формате.
form1.KoorGraf.Cells[3,i] это нужное число по оси Y. в вашем случае температура.
а вообще лучше поставить курсор на AddXY и нажать ctrl+F1 и если в английском не силён, то через переводчик гугла переведи фрагмент справки. так же можешь там обратить внимание на другие свойства которые могут пригодиться в вашем проекте.

да и чуть не забыл, в свойствах серии выставь что Х это датавремя

[utro35]

Еще раз попробую объяснить, что необходимо сделать:
на первый таймер прописываю код: Код: p r o c e d u r e T Ma i n F o r m . T i me r 4 T i me r ( S e n d e r : T O b j e c t ) ; b e g i n i f t = s t r t o i n t ( E d i t 7 . T e x t ) t h e n b e g i n T i me r 4 . E n a b l e d : = f a l s e ; e x i t ; e n d ; t : = t + 1 ; e d i t 9 . t e x t : = i n t t o s t r ( t ) ; На второй таймер: Код: S e r i e s 1 . A d d X Y ( D o u b l e ( n ow ) , s t r t o i n t ( E d i t 9 . T e x t ) , '', clRed) Далее: Код: p r o c e d u r e T Ma i n F o r m . B i t B t n 1 C l i c k ( S e n d e r : T O b j e c t ) b e g i n T i me r 2 . E n a b l e d : = t r u e ; T i me r 4 . E n a b l e d : = t r u e ; e n d ; Температура повышается, но график не рисуется

[IliaIT]

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

Еще раз попробую объяснить, что необходимо сделать:
на первый таймер прописываю код: Код: p r o c e d u r e T Ma i n F o r m . T i me r 4 T i me r ( S e n d e r : T O b j e c t ) ; b e g i n i f t = s t r t o i n t ( E d i t 7 . T e x t ) t h e n b e g i n T i me r 4 . E n a b l e d : = f a l s e ; e x i t ; e n d ; t : = t + 1 ; e d i t 9 . t e x t : = i n t t o s t r ( t ) ; На второй таймер: Код: S e r i e s 1 . A d d X Y ( D o u b l e ( n ow ) , s t r t o i n t ( E d i t 9 . T e x t ) , '', clRed) Далее: Код: p r o c e d u r e T Ma i n F o r m . B i t B t n 1 C l i c k ( S e n d e r : T O b j e c t ) b e g i n T i me r 2 . E n a b l e d : = t r u e ; T i me r 4 . E n a b l e d : = t r u e ; e n d ; Температура повышается, но график не рисуется

D o u b l e ( n ow ) Это что такое? нафига ? надо просто now

так ты при просмотре в дельфи (в режиме проекта)видишь свою серию со случайными числами. По оси X время( число месяц год ), а по Y некоторые значения...

если так то свойства серии выставил верно. и всё будет работать.
для проверки можешь временно создать отдельную кнопку со строкой в онклик Series1.AddXY(now,2,'',clRed)
должна рисоваться прямая , а по x ставиться время.

ps хотя и твой код должен работать D o u b l e ( n ow ) . не могу скопировать твой код, ибо много пробелов в словах, а править не охота

[utro35]

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

По оси X время( число месяц год ), а по Y некоторые значения...

если так то свойства серии выставил верно. и всё будет работать.
для проверки можешь временно создать отдельную кнопку со строкой в онклик Series1.AddXY(now,2,'',clRed)
должна рисоваться прямая , а по x ставиться время.

Опять ничего не происходит

[IliaIT]

проверь это работает у тебя?
это сделано в дельфи 7

[utro35]

Спасибо вроде все работает.
Только вот незадача, изменил в своем проекте свойства сериес, и после этого перестала появляться основная форма, пишет:
error creating form: identifier expected on line 709
что делать не знаю

[IliaIT]

телепатов тут мало. а так гляди на строку 709, где то там ошибка или поставь отладку на этой строе и увидишь где ошибся.