Utilisation de tchart

Soyez le premier à donner votre avis sur cette source.

Vue 15 639 fois - Téléchargée 2 122 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
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Hello everybody !

Explication de l'utilité de la méthode Add du composant TChartSeries :
(extrait de l'aide en ligne)
Déclaration :
function Add(Const AValue:Double; Const ALabel:String; AColor:TColor):Longint; virtual;

Description :
La méthode Add TChartSeries permet d'insérer un nouveau point dans une série lorsque vous ne disposez pas de la valeur X correspondante.

Cette fonction insère un nouveau point dans la série. Le nouveau point ne peut avoir qu'une valeur Y. La valeur X est calculée automatiquement.

Le paramètre AXLabel est facultatif (il peut être vide '').

Le paramètre AColor est facultatif (ce peut être clTeeColor).

La fonction renvoie la position du nouveau point dans la liste des valeurs.

Est-ce plus clair maintenant ?
Messages postés
14
Date d'inscription
lundi 14 février 2011
Statut
Membre
Dernière intervention
20 août 2015

MERCI cirec
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.
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
@Soumasimsim:

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

par:

Application.CreateForm(TChartDemoMainForm, ChartDemoMainForm);
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é
Afficher les 7 commentaires

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.