Discussion :

[byakuichi]

Bonjour,
je voulais savoir si il était possible de mettre des dates en données X d'un TChart ?

Car je sais qu'avec un : Series.AddXY() on peut mettre des nombres mais pas de string.
et le Series.Add() non plus je crois...

Si quelqu'un peut me rensiegner la dessus ?

[redoran]

salut ; avec tchart ont peut afficher toutes informations même des dates , voila un lien http://line.berjoan.free.fr/delphi/R34/tChart.htm peut être que vous trouverai ce que vous chercher.
sinon : http://delphipage.free.fr/teechart.html

[byakuichi]

Bon je n'ai pas trop eu le temps de me pencher dessus, mais je suppose que je dois utilise le chart.bottomAxis et chart.canvas.

Je verrais demain matin.

[Linkin]

Les dates sont des nombres.

Il faut juste paramétrer l'axe du bas, par exemple (sinon tu peux le faire directement avec l'éditeur graphique, c'est plus simple):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  BottomAxis.DateTimeFormat := 'hh:mm:ss';
  BottomAxis.ExactDateTime  := True;
  BottomAxis.Increment      := DateTimeStep[dtFiveMinutes];
 
  BottomAxis.LabelsAngle := 90;
  BottomAxis.LabelsFont.Charset := DEFAULT_CHARSET;
  BottomAxis.LabelsFont.Color   := clBlue;
  BottomAxis.LabelsFont.Height  := -12;
  BottomAxis.LabelsFont.Name    := 'Arial';
  BottomAxis.LabelsFont.Style   := [];
 
  BottomAxis.Title.Angle    := 90;
  BottomAxis.Title.Font.Charset := DEFAULT_CHARSET;
  BottomAxis.Title.Font.Color   := clGreen;
  BottomAxis.Title.Font.Height  := -16;
  BottomAxis.Title.Font.Name    := 'Arial';
  BottomAxis.Title.Font.Style   := [fsItalic];

[byakuichi]

Voici mon code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  while not ADOQuery1.Eof do
  begin
    for I := 0 to ADOQuery1.RowsAffected do
    begin
       if(ADOQuery1.Fields.Fields[1].AsVariant < 0)then
       begin
        Serie.Add(ADOQuery1.Fields.Fields[1].AsVariant, ADOQuery1.Fields.Fields[0].AsString);
        Serie.Marks.Style := smsvalue;
       end
       else
       begin
        Serie.Add(ADOQuery1.Fields.Fields[1].AsVariant, ADOQuery1.Fields.Fields[0].AsString, colr);
        Serie.Marks.Style := smsvalue;
       end;
    end;
  ADOQuery1.Next;
  end;

;

Ou tout fonctionne comme prévu