Discussion :

[starkson]

Voila j'ai donc mon TForm avec a l'interieur deux objets, un TRideau et un TFuite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TForm_main = class(TForm)
    pagecontrol_main: TPageControl;
    tabsheet_presentation: TTabSheet;
    tabsheet_config_stockage: TTabSheet;
    Panel1: TPanel;
    ....
    public
    mode_detaille: integer;
    le_rideau    : TRideau;
    la_fuite      : TFuite;
    procedure Initialisation();
end;

Les classes de ces objets sont definis comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
        TFuite = class
        private
        public
        debit_volumique_gaz : real;
        vitesse_vent        : real;
        procedure set_debit_volumique_gaz(debit : real);
        function calcul_rayon_panache(distance: integer) : real;
        protected
        published
end;

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
        TRideau = class
        public
        debit_eau : real;
        debit_air : real;
        pression_buse : real;
        efficacite : real;
        distance_fuite : real;
        type_rideau : integer; // permet de differencier les types de rideaux
 
end;

et enfin ma procedure "initialisation()"

Code :

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

1
2
3
4
5
6
7
 
procedure TForm_main.Initialisation();
begin
        mode_detaille          := 1; // marche
        le_rideau.debit_eau  := 10; // plante a cet endroit :!: 
        la_fuite.vitesse_vent := 5;
end;

Mon probleme est le suivant, si je n'arrive pas a modifier les valeurs des champs de TFuite et de TRideau, a l'execution j'ai une erreur de violation d'acces. Alors que sous delphi tout semble normal puisque c'est delphi lui meme qui me propose ces champs grace a l'autocompletion.

Je suis un peu nul en delphi est ce que vous sauriez d'ou vient le probleme?

[rbh]

Salut
l'erreur classique du débutant, elle arrive à tous le monde au moins une fois (et même avec plusieurs année d'expérience, ça arrive de la refaire).
Il faut créer les objets:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm_main.Initialisation();
begin
        mode_detaille          := 1; // marche
        le_rideau := TRideau.Create;
        le_rideau.debit_eau  := 10; // plante a cet endroit :!: 
        la_fuite := TFuite.Create;
        la_fuite.vitesse_vent := 5;
end;