Probleme d'acces a une variable.
Voila j'ai donc mon TForm avec a l'interieur deux objets, un TRideau et un TFuite.
Code:
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:
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:
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:
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?