Utilisation de tchart

Soyez le premier à donner votre avis sur cette source.

Vue 14 404 fois - Téléchargée 2 025 fois

Description

Suite à une question reçue d'un membre du forum, je publie un tout petit exemple montrant comment ajouter des séries à un composant TChart lors de l'exécution.

Source / Exemple :


//Extrait du code joint dans le zip
  //Effacement des séries
  Chart1.SeriesList.Clear;
  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    //1 ligne = 1 série
    cs := TLineSeries.Create(Self);
    cs.Title := StringGrid1.Cells[0, i];
    //NE SURTOUT PAS OUBLIER CECI :
    cs.ParentChart := Chart1;
    for j := 1 to StringGrid1.ColCount - 1 do
      //Ajout des valeurs à la série
      cs.Add(StrToIntDef(StringGrid1.Cells[j, i], 0), StringGrid1.Cells[j, 0]);
  end;

Conclusion :


Réalisé avec Delphi 6 mais ne devrait pas poser de problème si vous disposez du composant TChart.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

josswel
Messages postés
70
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
-
Merci bcp delphi je vais voir un peu cette exemple de tchart bien que je suis en d7 lolll .
J'en ai bcp besoin merci encore . Et j'attend le niveau 2 lollll
offlake
Messages postés
196
Date d'inscription
mercredi 3 septembre 2008
Statut
Membre
Dernière intervention
17 janvier 2009
-
Merci cette exemple ma bcp aidé
Jte donne 9/10
BY OFFLAKE
soumasimsim
Messages postés
14
Date d'inscription
lundi 14 février 2011
Statut
Membre
Dernière intervention
20 août 2015
-
merci mais il me poste un message d'erreur Form1 n'est pas déclaré
cirec
Messages postés
3807
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
9 décembre 2019
35 -
@Soumasimsim:

dans "TChartDemo.dpr" tu remplaces :
Application.CreateForm(TForm1, Form1);

par:

Application.CreateForm(TChartDemoMainForm, ChartDemoMainForm);
soumasimsim
Messages postés
14
Date d'inscription
lundi 14 février 2011
Statut
Membre
Dernière intervention
20 août 2015
-
@ cirec
oui c bon merci beaucoup. svp pour cette insetructio:
cs.Add(StrToIntDef(StringGrid1.Cells[j, i], 0), StringGrid1.Cells[j, 0]);
elle fait quoi au juste????
cs := TLineSeries.Create(Self);
cs.Title := StringGrid1.Cells[0, i]; cette derniére permet de remplir les valeurs de l'axe X c ça
dslé dslé pour le dérrangemnet mais je suis vraiment un débutante merci pour votre attention.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.