Voilà j'ai créé un graphique et depuis que j'ai mis la condition il ne veux pas lancé le programme.A force je vais croire que je suis un gros boulet.

j'ai créé mon graphe dans le FormCreate :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Serie:=TLineSeries.Create(Self); //Crée la série
Serie.ParentChart:=Chart1; //Associe la série au graphe//Créer le Graphe
et voilà le code qui ne marche pas enfin qui devrait mais qui veut pas grrr :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
var
condition:boolean;
begin
 
//Vérifiez s'il a sélectionné une clé pub
if ComboBox1.text ='Sélectionnez' then//Condition Si on a pas sélectionné dans la ComboxBox1
          begin
          Showmessage('Veuillez Sélectionnez une Clé de Publication');//Afficher Avertissement
          exit;
          end;
 
condition:=false;
 
//Recherche Clé Pub, Date, Retour, Montant Retour(peut etre)
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT smcode,sdate,');
Query2.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
Query2.sql.Add('Sum(SPRICE) as SommeDeSPRICE');
Query2.sql.Add('FROM Sales');
Query2.SQL.Add('WHERE (smcode=:x)');
Query2.SQL.add('GROUP BY sdate, smcode');
Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
Query2.Open;
 
//Déterminer si le texte du ComboBox et de la requête sont égaux
while not Query2.Eof do
      begin
                if AnsiUpperCase(combobox1.Text)=Query2.Fields[0].asstring then
                condition:=true;
                Query2.Next;
      end;
 
Series1.Clear; //Efface le contenu de la série
 
if condition=true then
while not Query2.Eof do //Ajoute valeurs dans la série
      begin
      showmessage('ici 1');
      //V:=V+StrToFloat(Query2.Fields[3].AsString);
      Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,693450250); //Ajoute un nombre entre 0 et 50 à la série
            //if edit1.text<>'' then
            //begin
                 //Series2.Add(strtofloat(edit1.text),'',750401325);
                 //Series2.Add(v,Query2.Fields[1].AsString,693450250);
            //end
            //else
            //Showmessage('Veuillez Remplir Le Champ Montant Fabrication');
      Query2.next;
      end
      else
      showmessage('Cette Clé Pub n''existe pas');
      end;