Discussion :

[stfanny31]

salut tout le monde
j'ai une table dans la quelle j'ai stocke des coordonée x,y
dans le but de désinés des Ellipse
j'ai fait le code suivant :

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
 
procedure Tf1.Ouvrir1Click(Sender: TObject);
var  CerX,CerY,gh:integer;
begin
        TbleEta.First;                                         
        while not TbleEta.Eof do                                 
           begin
              TbleEta.Append;                                    
              TbleEta.Edit;
              CerX:=  TbleEta.FieldbyName('X0').asinteger;     
              Cery:=  TbleEta.FieldbyName('y0').asinteger;     
              form1.canvas.Ellipse(CerX,Cery,CerX+50,Cery+50);
              TbleEta.post;                                        
              TbleEta.Next;                                      
           end;
end;

au lieu d'avoir plusieur Ellipse,j'obtiens une seul avec avec(x=0,y=0)
je sais que l'erreur est simple mais je l'a vois pas
si vous pouvais m'aidé a voir plus clair

[biloute31]

mais au fait ca sert a quoi ? A quoi ca te sert de tracer ces elipses ?

[banban54]

s

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
procedure Tf1.Ouvrir1Click(Sender: TObject);
var  CerX,CerY,gh:integer;
begin
        TbleEta.First;                                         
        while not TbleEta.Eof do                                 
           begin
              TbleEta.Append;                                    
              TbleEta.Edit;
              CerX:=  TbleEta.FieldbyName('X0').asinteger;     
              Cery:=  TbleEta.FieldbyName('y0').asinteger;     
              form1.canvas.Ellipse(CerX,Cery,CerX+50,Cery+50);
              TbleEta.post;                                        
              TbleEta.Next;                                      
           end;
end;

au lieu d'avoir plusieur Ellipse,j'obtiens une seul avec avec(x=0,y=0):

voir append, edit, post avec
une ellipse est tracée avec le dernier enregistrement qui vient d'être créé et qui est vide!
à+

[stfanny31]

[salut biloute31

mais au fait ca sert a quoi ? A quoi ca te sert de tracer ces elipses

je suis entrain de realisé un projet qui illustré la méthode pert/cpm
et cette méthode on a besoin de elipses

[stfanny31]

salut banban54
merci pour votre répence
vous m'avais mis sur la voix
voici le bon code a mon avis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 TbleEta.First;                                             
  while not TbleEta.Eof do                                 
           begin                                 
           CerX:=  TbleEta.FieldbyName('X0').asinteger;     
           Cery:=  TbleEta.FieldbyName('y0').asinteger;     
          form1.canvas.Ellipse(CerX,Cery,CerX+50,Cery+50);
          TbleEta.Next; 
       end;

il a l'air de bien marché
merci de votre jentillesse