Discussion :

[fz.saida]

bonjour
j ai crée un bouton dans une fiche1 quand j exécute mon programme en appuyant sur ce bouton une fiche2 doit s'afficher l'utilisateur doit rentrer des donnée qui serons utilisé pour un calcul puis affiche le résultat dans la fiche 2 qui est un graphe

mais quand j exécute mon programme en appuyant sur ce bouton une fiche2 doit s'afficher l'utilisateur rentre des donnée et sa passe directement dans la fiche 2 avec une graphe vide
pour récupéré les données que l’utilisateur rentre j ai fait un constructeur interne dans la fiche qui les récupéré et après je fait mon calcul
programme de mafiche 2

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
type
  Tfiche2= class(TFBase)
    GroupBox2: TGroupBox;
    Label1,Label2,Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label10,Label11,Label12,Label13,Label14,Label15,Label16: TLabel;
  Enveronnement: TGroupBox;
   Edit1,Edit2,Edit3,Edit4,Edit5,Edit6: TEdit;
   etatfils,position,filContact,mtrFils: TRadioGroup;
 
   procedure BoutonOKClick(Sender: TObject);
 constructor Create(AOwner: TComponent;resultat:TTypeResultat;resultatcourant:TObjetResultats;SerieTheta: TLineSeries);
 destructor  destroy(AOwner: TComponent;TypeResultat:TTypeResultat;resultatcourant:TObjetResultats;SerieTheta: TLineSeries);
 
  private
  public
   I:TObjetResultats;
   serietheta:TlineSeries;
   Resultat:TTypeResultat;
   //rayon:TConducteur;
   Fiche2: Tfiche2;
end;
 
  type templist = class(Tobject)
 
  private
       constructor create(v0,F0,D0,U0,amb0,R0,e10,z0,nb0,q0:Double;I0:TObjetResultats;Theta0:TlineSeries;Resultat:TTypeResultat);
       destructor  destroy();
       function dy(t,y,V,F,D,U,amb,R,e1,z,nb,I,q:double):Double;
       function tempini( ):Double;
       function range1(tempsdeb,tempsfin:double;N0:integer;ini,courant:double):Tmatrice  ;
 
  public
    I:TObjetResultats;
    F,V,D,U,amb,R:Double;
    q,eps,z,e1,nb:double;
    ini,sigma,S,g,C2,n,C1,nu,a,c,lambda,m,alpha:double;
    matriceTemp:TMatrice;
    theta: TlineSeries ;
    resultat:TTypeResultat;
    //
  end;
var
  objetTempList : TempList;
  fiche2: Tfiche2;
  ObjetResultatsSST:TObjetResultatsSST;
  ObjetResultatsM:TObjetResultatsMultimetre;
implementation
{$R *.dfm}
 
constructor Tfiche2.Create(AOwner: TComponent; Resultat:TTypeResultat ;resultatcourant:TObjetResultats;SerieTheta: TLineSeries);// constucteur de ma fiche 2 qui recupere mes donnée de la fiche1 
begin
  inherited Create(AOwner) ;
  self.I:= resultatCourant;
  self.SerieTheta:= serietheta;
  self.resultat:= Resultat;
end; //  lors du débogage il arrive jusqu'au cette ligne puis revien a la  fiche 1normalement il doit prendre en compte ma la parti en-dessous  
constructor TempList.create(v0,F0,D0,U0,amb0,R0,e10,z0,nb0,q0:Double;I0:TObjetResultats;Theta0:TlineSeries;Resultat:TTypeResultat);
begin
  self.V:= V0;
  self.D:= D0;
  self.U:= U0;
  self.amb:= amb0;
  self.F:=F0;
  self.R:=R0;
  self.e1:=e10;
  self.z:=z0;
  self.nb:=nb0;
  self.q:=q0;
  self.I:=I0;
   self.theta:= theta0;
  self.resultat:= resultat;
end;
 //  après il Ya mes fonction de calcule

le programme de ma fiche 1

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
rocedure TFResultats.BoutonCalculeThermiqueClick(Sender: TObject);
 var
  listresultats: TobjectList;
  Horaire : boolean;
  SerieTemps, Serietheta: TLineSeries;
  NombrePoints : integer;
   begin
listresultats:=ResultatsSelectionnes();
if (listresultats.Count= 1) then
begin
serietheta:=tlineseries.Create(self);  fiche2:=Tfiche2.Create(nil,OrdonneeSelectionnee,Tobjetresultats(listresultats.items[0]),TLineSeries(SerieTheta)); //items n’importe quel objet dans la liste (mon objet)  // en mode debug  de cette ligne il passé  a ma fiche 2  puis uniquement dans ce constructeur pas   je sais pas  pourquoi pas il passe pas par l’autre constructeur
fiche2.showmodal;//interdiction au autre fenetre    equvaut ac surveillance ligne suivante
if fiche2.ModalResult =mrOk then//Validation de la fenêtre
begin
 NombrePoints := 5000;
  Horaire:=RadioAbscisseHoraire.Checked;
 SerieTheta.title:='temperature -'+PanneauOnglets.ActivePage.Caption;
 
//Changement d'onglet 
  NouvelOnglet();
  CreerGraphique(PanneauOnglets.ActivePage);
  setlength(ProprietesOnglet,PanneauOnglets.ActivePage.TabIndex+1);
 ChargerOnglet();
  end
end
  end;

[Andnotor]

Tout cela est bien confus

• Les constructeurs et destructeurs devraient être dans la partie public.
• Les destructeurs ne seront jamais appelés. il doivent obligatoirement être déclarés destructor Destroy; override;.
• Pour que TempList existe, ben... faut le créer. La logique voudrait aussi que TempList soit membre de TForm2.