Discussion :

[ghima]

Bonjour,

J'ai des données issues d'un fichier que j'ai stocké dans une grille. Mais je n'arrive pas à les afficher sur un graphe (Outils TeeChart utilisant l'objet TChart). J' ai choisie une représentation TlineSeries mais je n'arrive pas à transferer les données de la grille et a les afficher.

Voici le code que j'ai écrie:

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
 
Procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
     i, long_list:Integer;
 
begin
  long_list:= ComboBox1.Items.Count;
  for i:=0 to long_list do
  begin
     Series1.XValues.Value[i]:=strtofloat(StringGrid1.Cells[1,i]);
     Series1.YValues.Value[i]:=strtofloat(StringGrid1.Cells[2,i]);
 
  end;
 
end;

[Linkin]

Et avec

Code :

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

1
2
 
Series1AddXY(strtofloat(StringGrid1.Cells[1,i]),strtofloat(StringGrid1.Cells[2,i]));

[banban54]

bonsoir

Bonjour,

J'ai des données issues d'un fichier que j'ai stocké dans une grille. Mais je n'arrive pas à les afficher sur un graphe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
     i, long_list:Integer;

begin
  long_list:= ComboBox1.Items.Count;
  for i:=0 to long_list do
  begin
     Series1.XValues.Value[i]:=strtofloat(StringGrid1.Cells[1,i]);
     Series1.YValues.Value[i]:=strtofloat(StringGrid1.Cells[2,i]);
  end;
end;

Ce ne doit pas être très évident de cliquer sur une serie vide!
Il faut alimenter la serie sur un autre évènement.

faire aussi attention aux débordements

Code :

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

1
2
3
 
  long_list:= ComboBox1.Items.Count;
  for i:=0 to long_list do  //  to long_list - 1

à+