![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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); |
|
#5
|
|||
|
|||
|
Прописываю этот код в таймер. Но при запуске почему то ничего не происходит...
|
|
#6
|
||||
|
||||
|
А что должно произойти? Вторым параметром (Y) идёт Double(Now), представляешь, что за Y получается?
|
|
#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;Последний раз редактировалось angvelem, 16.02.2012 в 03:33. |
|
#9
|
|||
|
|||
|
Ну так хоть что то уже видно.
Опять таки не то. Нужно чтобы время по оси Х изменялось динамически, т.е. чтобы было движение. И желательно только часы-минуты-секунды |