Temat: Jak zrobić wykres w Delphi

Witam
Mam problem z komponentem TeeChart, a właściwie z poprawnym rysowaniem
wykresów.
Na poniższych linkach pokazane są wykresy, jeden z komponentu TeeChart, a
drugi, na tych samych danych wykonany w Excelu:
1. Delphi



2. Excel




Różnica polega na tym, że Excel posłusznie zaczyna robić wykres od godziny 22-
giej do 5 (ZMIANA DATY!), TeeChart natomiast jest "mądrzejszy ode mnie i
wykres robi od godziny 00:00 do 23:59. Stad taki uskok.

Ja właśnie mam problem z wykonywaniem wykresów w Delphi, jeżeli pojawia się
zmiana daty o północy. Program wtedy "głupieje", a ja nie wiem, gdzie
popełniłem błąd.
Wykres tworzę przy pomocy kodu:

for i:=1 to high(tablica_czas) do
begin
if tablica_czas[i,1]<>0 then
begin
Form1.Series1.AddXY(tablica_czas[i], tablica_ilość[i]);
end;
end;

Dwie tablice, jedna z wartościami typu TTimeDate, druga z wartościami typu
Integer.

Poniżej dane:
23:25:29 50
23:28:29 100
23:35:29 150
00:01:29 200
00:09:29 250
00:15:29 300
01:01:29 350
01:51:29 400
02:51:29 450
02:59:29 500
03:51:29 530
05:51:29 560
05:59:29 610

Gdyby ktoś wskazał mi drogę rozwiązania problemu, byłbym wdzięczny.

Temat: Jak zrobić wykres w Delphi

U mnie zadziałało jak trzeba:

 var

   i: Integer;

   Start: TDateTime;

 begin

   Chart.BottomAxis.DateTimeFormat := 'hh:mm:ss';

   Chart.Series[0].YValues.DateTime := True;

 

   Start := EncodeDateTime(2007, 10, 10, 23, 30, 0, 0);

 

   for i := 0 to 10 do

     begin

       Chart.Series[0].AddXY(Start, i);

       Start := IncMinute(Start, 8);

     end;

 end;

Kacper Kwapisz edytował(a) ten post dnia 18.10.07 o godzinie 20:22

Temat: Jak zrobić wykres w Delphi

OK, spróbuję.
Jak mi ruszy, znaczy to, e na GoldenLine sa najlepsi programiści. :)

Faktycznie, działa.
Big THX.Sławomir Such edytował(a) ten post dnia 18.10.07 o godzinie 21:24