salut
j'ai un programme le calcule de la marge(pour la méthode pert/cpm)
je veux que a chaque fois que la marge=0 je prend des coordoné et je déssine une ligne et un cercle
voici le code que j'ai fait :
normalement a chaque fois que marge=0 il déssine
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 tligne.First; while not tligne.Eof do begin if (tligne.FieldByName('marge').Asinteger=0 )then begin X0:= tligne['x0'] ;Y0:= tligne['y0'] ; Xe:= tligne['xe'] ;Ye:= tligne['ye'] ; X0Pres:= tligne['X0Pres'] ; Y0Pres:= tligne['Y0Pres']; X0Sui:= tligne['X0Sui'] ; Y0sui:= tligne['Y0sui] ; form1.Canvas.MoveTo(X0,Y0); form1.Canvas.LineTo (Xe,Ye); form1.Canvas.Ellipse(X0Sui,Y0sui,X0Sui+50,Y0sui+50); form1.Canvas.Ellipse(X0Pres,Y0Pres,X0Pres+50,Y0Pres+50); end; tligne.Next; end;
mais ca ne marche pas
esque vous pouvé me corrigé l'erreur
Partager