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:

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;

essaie comme çà :

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var
    i;
begin
series1.Active := false;
 for i:=0 (ComboBox1.Items.Count - 1) do
do
begin
series1.XValues.Value[0] := strtofloat(StringGrid1.Cells[1,i]);
Series1.YValues.Value[3]:= strtofloat(StringGrid1.Cells[2,i]);
series1.Active := true;
end;
end;

cantador

désolé j'ai dérapé :

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var
    i : integer;
begin
series1.Active := false;
 for i:=0 (ComboBox1.Items.Count - 1) do
do
begin
series1.XValues.Value[0] := strtofloat(StringGrid1.Cells[1,i]);
Series1.YValues.Value[3]:= strtofloat(StringGrid1.Cells[2,i]);
series1.Active := true;
end;
end;

nb : mets les series en manuel

cantador

Je vais y arriver..

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var
    i : integer;
begin
series1.Active := false;
 for i:=0 (ComboBox1.Items.Count - 1) do
begin
series1.XValues.Value[i] := strtofloat(StringGrid1.Cells[1,i]);
Series1.YValues.Value[i]:= strtofloat(StringGrid1.Cells[2,i]);
series1.Active := true;
end;
end;


cantador

Cette fois-ci , c'est la bonne !

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var
    i : integer;
begin
series1.Active := false;
 for i:=0 (ComboBox1.Items.Count - 1) do
begin
series1.XValues.Value[i] := strtofloat(StringGrid1.Cells[1,i]);
Series1.YValues.Value[i]:= strtofloat(StringGrid1.Cells[2,i]);
end;
series1.Active := true;
end;

çà marche ?

cantador

salut,

rapidement quelques points:
- met ton code dans une methode que tu appel depuis un bouton ou autres. Pas dans l'event Chart1BeforeDrawSeries. (à moins que tu veuilles que les données soit retransferée avant chanque repaint() . bonjour les performance....)

sinon, je ne suis pas sur que "XValues.Value[i]" fonctionne si ta serie est vide.... essaie avec (pas testé)

procedure TForm1.LoadGrilleToChart;
var
    i : integer;
begin
series1.BeginUpdate;
series1.clear; //efface ancien points
try
for i:=0 (ComboBox1.Items.Count - 1) do
begin
  series1.AddXY(strtofloat(StringGrid1.Cells[1,i]), strtofloat(StringGrid1.Cells[2,i]));
 // ou AddY si t'as juste une "list" de valeur.
end;
finally
series1.endupdate;
end;//try

end;

sinon, as-tu regarder les sources suivantes? Elles peuvent peut-être t'aider...

bon code,

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Bonjour,

Je vous remercie pour les informations; dans tous les cas, je les testerais et vous tiendrait informé.

Bonne journée.

@edlain :
C'est sympa merci..
Il m'a fallut 5' pour tester le truc..et toi tu vas nous donner de tes nouvelles en 2008..
n'est-ce pas ?

et avec un avatar svp..

cantador

Bonjour,

Excuse moi, je n'ai pas repondu de suite car je n'ai pas de connexion chez moi en ce moment.
Mais en utilisant ton code, les points ne s'affichent toujours pas sur le Tchart; Par contre, quand j'utilise AddXY en entrant des vrais valeurs a i, j'arrive à tracer la ligne.
Par contre en utilisant une boucle avec : series1.AddXY(strtofloat(StringGrid1.Cells[1,i]), strtofloat(StringGrid1.Cells[2,i]));
j'ai un message d'erreur qui me dit que j'ai un problème avec des virgules flottantes.

bon début de semaine. 

"j'ai un message d'erreur qui me dit que j'ai un problème avec des virgules flottantes."
çà vient vraisemblablement du séparateur décimal :
il faut le fixer dès le départ..

initialization
  DecimalSeparator := '.';
ou := ','; selon la configuration choisie dans ton panneau de configuration

un petit test :
    DecimalSeparator := '.';
    test := StrToFloat('4.03');
    showmessage(floatToStr(test));

il faudra aussi faire attention comment présenter les données dans l'écriture :

series1.XValues.Value[i] := ??????

Mais tu devrais t'en sortir..

cantador