[Delphi] erreur Constructor - Inherited.

erreur Constructor - Inherited. [Delphi] - Delphi/Pascal - Programmation

Marsh Posté le 26-09-2005 à 21:15:31    

Bonsoir :)
 
Je commence avec delphi et je suis bloqué au niveau du CONSTRUCTOR j'ai une erreur de violation d'accès :
 
Pourriez-vous un peu m'éclairer sur ce que j'ai commencé ci dessous ? Merci  :jap:  
 

Code :
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.    TForm4 = class(TForm)
  11.     Button1: TButton;
  12.     procedure Button1Click(Sender: TObject);
  13.    
  14.   private
  15.     Fcontenance:double;
  16.     Fcontenu:double;
  17.   public
  18.     CONSTRUCTOR Creation(value:double);
  19.     procedure Remplir(value:double);
  20.     procedure Vider(value:double);
  21.     property contenance:double read Fcontenance;
  22.     property contenu:double read Fcontenu;
  23.   end;
  25. var
  26.   Form4: TForm4;
  27.   Tsac:TForm4;
  30. implementation
  32. {$R *.dfm}
  34.       // CREER L'OBJET
  36. CONSTRUCTOR TForm4.Creation(value:double);
  37. begin
  38.      
  39.       inherited;
  41. end;
  43.       // REMPLIR
  45. procedure TForm4.Remplir(value:double);
  46. begin
  47.       IF ((contenance+value)<=(FContenance)) THEN
  48.       begin
  49.       Fcontenu:=Fcontenu+value;
  50.       end
  51.       ELSE
  52.       begin
  54.       end;
  56. end;
  58.       // VIDER
  60. procedure TForm4.Vider(value:double);
  61. begin
  64. end;
  66. procedure TForm4.Button1Click(Sender: TObject);
  67. begin
  68. Tsac.Creation(15);
  70. end;
  72. end.

Reply

Marsh Posté le 26-09-2005 à 21:15:31   

Reply

Marsh Posté le 26-09-2005 à 22:53:24    

Le problème vient de Tsac.Creation(15);
 
Je n'ai pas encore tout bien cerné mais si j'utilise TForm4.Creation(15); çà fonctionne. Je vais poursuivre un peu je reviendrai la dessus plus tard si quelqu'un peut m'expliquer pourquoi çà m'avancerait :D
 

Reply

Marsh Posté le 27-09-2005 à 10:33:04    

L'instruction

Tsac.Creation(15);

appele la méthode "creation" appartenant à l'objet "Tsac"...qui n'est pas encore créé.  :non:  
 
Pour créer un objet on utilise donc (généralement) l'ordre suivant:
Tsac := TForm4.Creation(15);
 
Ceci n'appele pas la méthode liée à un objet(qui à ce stade n'est qu'un pointeur nul), mais la méthode liée à la classe TForm4 (la classe, elle, existe dès le depart).
 
Tu peut toujours consulter l'aide au chapitre "Méthodes de classe", mais à part pour les constructeur, ça ne sert pas souvent

Reply

Marsh Posté le 27-09-2005 à 11:06:00    

Merci beaucoup zozol c'est plus clair pour moi  :)  
 
 :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed