bonjour
je voudrais bien savoir si il y a une possibilité de affecter des séries a une liste d' absorbances (ttreeview ) puis les affichez sous un graphe ? voila ce que j ai pu réalisé mais j ai un souci que j arrive pas a a faire la liaison entre Tlineseries et le ttreeview afin que sa soit compatible

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
procedure TFResultats.BoutonDEtudeAmantClick(Sender: TObject);
 var
   listresultats1: TobjectList;
   i,j,NombreDePoints: integer;
  NRames: TTreeNode;
  Resultat,ObjetResultats: TObjetResultats;
  ListeDesResultats1:TobjectList;
  serieMrT:Tlineseries;
  Result:TObjectList;
 
 begin
   inherited;
listresultats1:=ResultatsSelectionnes();
if Tobjetresultats(listresultats1.items[0]) is TObjetResultatsMRTemps then
BEGIN
 //if (listresultats1.Count= 1) then
FicheDEtudeAmant:= TFicheDEtudeAmant.create (nil,OrdonneeSelectionnee,Tobjetresultats(listresultats1.items[0]),Tfprofilenlong(ligne.TLigne).SerieCourbures);
FicheDEtudeAmant.remplirligne1 ();
FicheDetudeAmant.dessinergraphe();
   // REMPLIRE LA LIGNE OU ILA YA LES TRAIN
  serieMrT:=tlineseries.create(self);
  self.Simulation:=TSimulation(ComboSimulations.Items.Objects[ComboSimulations.ItemIndex]);
  FicheDEtudeAmant.Arborescence1.Items.Clear;
  NRames:=FicheDEtudeAmant.Arborescence1.Items.Add(nil,'Rames');
  for i:=0 to Simulation.ListeDesResultatsMRTemps.Count-1 do
  begin
 for j:=0 to TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).getTaille-1 do
   begin
   SerieMrT.AddXY(TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).DistanceLigne [j],TobjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]).Vitesse[j]);
   end;
  Resultat:=TObjetResultatsMRTemps(Simulation.ListeDesResultatsMRTemps[i]);
  FicheDEtudeAmant. Arborescence1.Items.AddChildObject(NRames,Resultat.Nom,Resultat);
   ficheDEtudeAmant. Arborescence1.Selections[i].Data:= SerieMrT; // dans cette ligne j arrive pas a faire la passage entre tlineseries et les élément de mon absorbance  
   end;
 end;
  FicheDetudeAmant.show;
end;