|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите построить график
Здравствуйте.
В программе нужно сделать график температуры. Происходит повышение, отображается в edit. Время системное. Делаю так: Series1.AddXY(strtoint(Edit9.Text), '''' + TimeToStr(now) + '''', clRed); Пишет incompatible files: Double and String Как будет правильно? |
#2
|
|||
|
|||
Попробуй так:
Код:
Series1.AddXY(strtoint(Edit9.Text), Double(now), clRed); |
#3
|
|||
|
|||
также ошибка, только теперь incompatible files: String and Integer
|
#4
|
||||
|
||||
3 параметром идёт String, 4 - необязательным, цвет.
Код:
Series1.AddXY(strtoint(Edit9.Text), Double(now), '', clRed); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
|||
|
|||
Прописываю этот код в таймер. Но при запуске почему то ничего не происходит...
|
#6
|
||||
|
||||
А что должно произойти? Вторым параметром (Y) идёт Double(Now), представляешь, что за Y получается?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
|||
|
|||
Ну так в случае:
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; Последний раз редактировалось utro35, 16.02.2012 в 03:34. |
#8
|
||||
|
||||
Раз используется таймер, должно быть что-то такое:
Код:
var St : String; X : Integer; procedure TForm1.FormCreate(Sender : TObject); begin X := 0; St := Edit9.Text; end; procedure TForm1.TimerOnTimer(Sender : TObject); var S : String; begin if Edit9.Text <> St then begin St := Edit9.Text; S := TimeToStr(Now); end else S := ''; Series1.AddXY(X, StrToInt(Edit9.Text), S, clRed); inc(X); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 16.02.2012 в 03:33. |
#9
|
|||
|
|||
Ну так хоть что то уже видно.
Опять таки не то. Нужно чтобы время по оси Х изменялось динамически, т.е. чтобы было движение. И желательно только часы-минуты-секунды |