slt à tous, je suis sur un projet et j'ai de sérieux problême dans l'utilisation de teechart, je dois representer la distrubition de l'eau potable à travers le reseau maillé, donc l'utilisateur dois saisir des points qu"on appel noeud puis joindre les deux bout par une tracée(une droite), il doit avoir la possibilité de de créer ses droites en nommant les noeuds, j'ai utiliser ceci mais vraiment c'est autre chose, il faut qu'à chaque fois qu'il saisit deux nombres qu'il puisse tracer sans cela ne perturbe la position ou melange tout et à chaque fois qu'on clic sur le graphe tous bouge, j'ai vraiment bésoin d'aide
procedure TForm1.Button1Click(Sender: TObject);
var c,c1:tpoint;
i :integer;n:string;
a,b:integer;
cisse:integer;
begin
val(edit1.text,a,cisse);
val(edit2.text,b,cisse);
n:=edit3.text;
assignFile(noeud,'C:\Maille.adr');
rewrite(noeud);
reset(noeud);
c.x:=a;
c.y:=b;
write(noeud,c);
closeFile(noeud);
reset(noeud);read(noeud,c1);
with form1.Series1 do
begin
AddXY(c1.x,c1.y,n,clred);
end;
//AddXY(30,60,''clred);
end;
|