Création de composants - constructeur

JJT

J'ai l'impression que mon message est tombé dans la trappe ...  je recommence :
Bonjour à tous,
   Persévérant dans l'apprentissage de la création de composants, je suis à la recherche d'une réponse claire à la question suivante :
   Quand y-at-ill obligation d'employer un Constructeur et quand n'est-ce pas indispensable ?    Je n'ai pas lu de réponse très nette.   (Je crois savoir que lorsqu'on dérive sa nouvelle Classe d'une Classe Delphi, il n'y a pas obligation ?..)
Merci et bon dimanche (studieux sur Delphi ?...)
JJT

Salut !

Ben c'est simple:
- Si tu as besoin d'autre objets dans ta classe, (comme un TStringLst ou un tableau) alors tu vas devoir coder un constructeur pour les créer.
- Dans ce cas, ne pas oublier le "inherited" pour que le constructeur ancètre fasse aussi son boulot.
- Et ne pas oublier non plus que tout ce qui est crée par l'objet doit être   détruit ! Donc la présence d'un constructeur se traduit quasi-obligatoirement par la présence d'un destructeur, qui fait le ménage.

Exemples:

  TSuperInteger = class
  protected
    FInt: Integer;
  public
    procedure Inc;
    procedure Dec;
    property Value: Integer read FInt;
  end;

Cette classe n'a pas besoin de constructeru car elle utilise que des types natifs (ie Integer). FInt est initialisé à 0 lorsque la classe est crée.
Si tu veu xpar contre l'initialiser à 100 ou à n'importe quelle autre valeur de ton choix, tu vas devoir coder ton propre constructeur, par exemple comme celui-ci :

  TInitSuperInteger = class(TSuperInteger)
  public
    constructor Create(AInitValue: Integer);
  end;

  constructor TInitSuperInteger.Create(AInitValue: Integer);
  begin
    inherited Create;
    FInt := AInitValue;
  end;

A noter ici que tu n'as toujours pas besoin de destructeur, car tu n'as rien crée !

En espérant t'avoir dépatouillé l'esprit,
A+
Flo

Merci pour ta réponse.
      En somme, si je comprend bien, pas besoin de constructor si la nouvelle classe n'utilise que des "données membres" de type natifs déjà définis par Delphi (boolean, integer, string etc...) et à condition qu'on ne souhaite pas les initialiser autrement qu'à 0 (NIL, je crois).
Dans tous les autres cas, il faut d'abord appeler le constructeur ancètre (avec Inherited) puis le constructeur à coder.
JJT
Dans le fond, est-ce nuisible d'appeler, dans tous les cas, le constructeur ancètre ?

Merci beaucoup pour le dimanche studieux (bien que plusiveux)
   Pour tout dire, je suis en train de commencer à réaliser mes premiers composants pour "construire" un T.C.O. (Tableau de Contrôle Optique) pour un réseau de chemin de fer...

Je déduis de ta réponse que je n'ai pas du dire trop d'incongruités (pour l'instant !..)
   Pour le TCO, comme je suis débutant Delphi, je me fixe pour l'instant des objectifs + que modestes ! (des composants cantons qui changeront de couleur si un train est présent et composants-aiguillages dont la bonne branche s'éclairera (avec un OnClick pour manoeuver l'aiguille.)).
Après, si je progresse bien, on verra..
Merci pour ton aide, si précieuse quand on commence..
JJT
J'espère que j'ai bien "accepté" la réponse.

"En effet, tu nous avais déjà parlé de ton projet de chemin de fer.
Cela risque d'être un très gros truc, n'hésites donc pas à créer plusieurs classes (une classe = une fonction)"

Comment entends-tu "une classe = une fonction" ?  pourrais-tu me donner une idée la-dessus ? (juste dans le principe, pour savoir si je comprend bien ce que tu veux dire..)
merci
JJT

J'essaierai de sentir, au fur et à mesure de la progression du projet, ce dont tu me parles.
Peut-être qu'avec le temps, je progresserai dans ce sens !..
Merci pour tes bons conseils.
bien amicalement
JJT