TChartRésolu

Question

J'utilise un graphique avec une base de donn&#233;es :

procedure CalculGraphique;
var i,j:integer;
    donnees : array [0..1000] of real;
begin
    With Form5.Chart1 do
        Begin
            Series1.Clear;
            for i:=0 to 1000 do donnees[i]:=0;
            i:=0;
            j:=0;
            DM.ADOTableOperations.First;
            With DM.ADOTableOperations do
                While not Eof do
                    begin
                        donnees[i]:=FieldByName('Montant').Value;
                        i:=i+1;
                        Next;
                    end;
            j:=i-1;
            for i:=0 to j do Series1.Add(donnees[i]); // Ligne
            for i:=0 to j do Series2.Add(donnees[i]); // Histogramme
            for i:=0 to j do Series3.Add(donnees[i]); // Sectoriel
            for i:=0 to j do Series4.Add(donnees[i]); // Aire
        end;
end;


procedure TForm5.FormCreate(Sender: TObject);
Begin
    CalculGraphique;
End;

N'ayant pas trouv&#233; de tuto sur les graphiques + ADO, j'ai essay&#233; d'&#233;crire le code. Si vous connaissez plus simple, ou des tutos sur le web, je suis preneur ...

Ceci dit, comprend pas pourquoi : 
identificateur non declar&#233; : series1 dans ma procedure calculgraphique ?

Cirec · Accepted Answer

Salut,
je suppose que Series est un TChart si non il faut remplacer par le bon composant
      For X :=  1  To  4 Do
        With TChart(FindComponent('Series' + IntToStr(X))) Do
            For i: =0 to j do Add(donnees[i]); // Ligne

 

@+
Cirec

Cirec · Answer

Salut,
si tu as un message identificateur non d&#233;clarer c'est que tu as oublier de le faire o&#249; il est pas visible dans cette procedure. 
si c'est un composant que tu as d&#233;pos&#233; sur la form dans ce cas il faut faire :

Form5.Serie1..... puisque ta proc&#233;dure est ext&#232;rne &#224; Form5 " procedure CalculGraphique;"

Pour que le composant soit visible &#224; l'int&#233;rieur de ta proc&#233;dure il aurait fallu que tu la d&#233;clares comme ceci:

procedure TForm5.CalculGraphique;

@+
Cirec

yannba · Answer

Je l'avais deja fait et ca marchait pas, et je viens de redemarrer Delphi, et l&#224; ca marche ... C'est pas la 1&#176; fois qu'il me fait ca ! Fa falloir que je reinstalle delphi, moi !

Sinon, que penses tu de ce code ? Y a pas moyen de faire mieux ?

yannba · Answer

procedure Tform5.CalculGraphique;
var i,j,x:integer;
    donnees : array [0..1000] of real;
begin
    With Chart1 do
        Begin
            Series1.Clear;
            for i:=0 to 1000 do donnees[i]:=0;
            i:=0;
            j:=0;
            DM.ADOTableOperations.First;
            With DM.ADOTableOperations do
                While not Eof do
                    begin
                        donnees[i]:=FieldByName('Montant').Value;
                        i:=i+1;
                        Next;
                    end;
            For X := 1 To 4 Do
              With TChart(FindComponent('Series' + IntToStr(X))) Do
                For i:=0 to j do Add(donnees[i]); // Ligne
        end;
end;

Series est bien un TChart.
add : identificateur non d&#233;clar&#233; ... toujours le meme probleme ....

cs_Delphiprog · Answer

Il faut ajouter une s&#233;rie &#224; la liste des s&#233;ries et non au graphique lui-m&#234;me :

procedure Tform1.CalculGraphique;
var
  i, j, x: integer;
  donnees: arrayof real; //tableau dynamique
  s: TChartSeries;
begin
with Chart1 do
begin
    Series1.Clear;
    //plus rapide qu'une boucle
    FillChar(donnees, SizeOf(Donnees), 0);
    i :=  0;
    j := 0;
    DM.ADOTableOperations.First;
    //dimensionner le tableau
    SetLength(donnees, DM.ADOTableOperations.RecordCount);

     with  DM.ADOTableOperations do
whilenot Eof do
begin
        donnees[i] : = FieldByName('Montant').AsFloat;
        inc(i);
        Next;
      end;
    for X :=  1 to 4do
begin
if FindComponent('Series' + intToStr(X)) is TChartSeries then
begin
        S : = FindComponent('Series' + intToStr(X)) as TChartSeries;
        with S do
//attention : j est toujours &#233;gal &#224; z&#233;ro
for i :=  0 to  j do
            Add(donnees[i]); // Ligne
end;
    end;
  end;
end;

Comme je ne comprends pas bien ton algorithme, je ne l'ai pas retouch&#233;. En effet, je ne vois pas pourquoi tu veux stocker les donn&#233;es dans un tableau avant de les affecter aux s&#233;ries. De plus, la variable J est initialis&#233;e &#224; z&#233;ro, ce qui fait que dans la derni&#232;re boucle, il ne se passera rien. Sans doute as-tu oubli&#233; d'affecter i &#224; j quelque part...

A mon avis, t'es pas tir&#233; d'affaire et un peu de r&#233;flexion avant de poser un tas de questions sur le forum serait une bonne formule pour apprendre.

<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

yannba · Answer

Pour Delphiprog :
"A mon avis, t'es pas tir&#233; d'affaire et un peu de r&#233;flexion avant de poser un tas de questions sur le forum serait une bonne formule pour apprendre"

Le probl&#232;me &#233;tait que j'avais trouv&#233; des codes sur le net, et qu'ils utilisaient tous un tableau ... Vu que l'aide de Delphi, &#224; moins d'etre un informaticien, on n'y comprend rien, je suis oblig&#233; de m'inspirer du savoir-faire des autres pour avancer ... J'ai juste derri&#232;re moi que 2 MOIS d'informatique en PROGRAMMATION.
Ceci dit :
- J'ai regl&#233; effectivement mon probl&#232;me en enlevant le tableau
- Ton code, m'a permis de comprendre comment fonctionner le "array" que j'ai aussitot mis en application, avec pour cette fois une utilisation ad&#233;quate !

Merci &#233;galement &#224; Cirec !! ... avec un peu de retard, certes, mais j'avance doucement.

cs_Delphiprog · Answer

Excuse-moi si ma remarque t'a bless&#233;. Mais le m&#233;lange de probl&#232;mes avec un algorithme qui ne semblait mener nul part me faisait penser que tu avais les id&#233;es confuses. Mais s'il s'agit de code r&#233;cup&#233;r&#233; sur le net, sois prudent. M&#234;me dans les bouquins les codes fournis ne marchent pas souvent tels quels.

Dire que l'aide en ligne fournie avec Delphi est mal fichue c'est parler un peu vite.
Et d'une, elle est en fran&#231;ais. Et de deux, c'est surement l'une des plus claires. En revanche, elle n'est pas toujours en phase avec les nouvelles classes propos&#233;es dans chacune des versions. Certains concepts ou fonctionnalit&#233;s avanc&#233;s sont bien souvent rest&#233;s dans l'ombre faute de documentation. Il ne suffit pas de faire un bon produit ou un bon composant. Sans documentation il n'est rien et tombe vite dans les oubliettes.
Imagine que le composant TChart ait &#233;t&#233; livr&#233; sans documentation !
Ce magnifique et puissant composant aurait &#233;t&#233; rel&#233;gu&#233; au 10e sous-sol.
C'est vrai que, pour quelqu'un qui d&#233;bute, s'attaquer &#224; l'utilisation de TChart &#231;a ne doit pas &#234;tre &#233;vident si on ne poss&#232;de pas les bases.
Courage, tiens bon 


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_ibrahimakhalil · Answer

je travail sur un projet avec tchart et je dois tracer beaucoup de droites en les lier avec des points que j'ai designé comme un série de points les autres séries sont des lignes, mais je n'arrive pas à joindre aux points les lignes 
je veux qu'à chaque fois qu'on clique sur le bouton qui trace la droite qu'une série se crée automatiquement mais mis
 Tpoint=record
    x:integer;
    y:integer;end;
dans la procedure qui place les points j'ai mis
with serie1 do
addxy(strtoint(edit1.text),strtoint(edit2.text),edit3.text,clteecolor);
// edit3.text est le nom du noeud 
et dans celui qui tarce les droites j'i mis
series:=Tlineseris.create(self);
series.parentChart:=chart1;
addxy(c.x,c.y,'',clteecolor);// c.x,c.y sont les point qui séront joint 

si j'execute le côte gauche du chart se bouré de chiffre
priere de bien vouloir m'aider

TChart

8 réponses

Votre réponse

Discussions similaires