Discussion :

[sgmsg]

Bonjour à tous

Je souhaite un composant avec certaines variables initialisées lors de la création:

Voici le code du composant:

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
 
unit Fob;
 
interface
 
uses
  Classes,  SysUtils, math, StdCtrls, Dateutils, Controls;
 
type TF1=class(Tobject)
    private
        VCommunication:string;
     protected
        constructor create;
    public
       Property Communication: string read VCommunication write VCommunication;
    end;
 
implementation
 
constructor TF1.create;
begin
    vCommunication:='Bonjour le monde !'
end;
 
end.

Le programme qui appelle:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var F1:TF1;
begin
    F1:=TF1.create;
    showmessage(F1.Communication);
    f1.free;
end;

Le résultat du showmessage est simplement un message vide

Est-ce qu'il y a moyen d'initialiser une variable lors du create ou lors de la déclaration de l'objet, si oui comment? Sinon pourquoi?


P.S. : Excusez le dédoublement de message

[Linkin]

Mettre le constructeur en public.

Dans ton cas, le constructeur appelé est celui par défaut pour tout objet, par celui que tu as écrit.

[peter27x]

Pour la deuxième question, faut que tu passes un paramètre dans ton create (à modifier en conséquence).

[philnext]

Je ne comprends pas trop la question et encore moins les réponses.
Ton code est correct et le create sert exactement à initialiser les valeurs.
Normalement avec ton code (il faut peut être faire ctrl-Alt-C) tu dois avoir une procédure 'create' générée, tu initialises ta variable dedans et voilà :

Code :

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

1
2
3
4
constructor TF1.create;
begin
  VCommunication := 'toto';
end;

[Paul TOTH]

Je ne comprends pas trop la question et encore moins les réponses.
Ton code est correct et le create sert exactement à initialiser les valeurs.
Normalement avec ton code (il faut peut être faire ctrl-Alt-C) tu dois avoir une procédure 'create' générée, tu initialises ta variable dedans et voilà :

Code :

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

1
2
3
4
constructor TF1.create;
begin
  VCommunication := 'toto';
end;

comme dit plus haut, l'erreur est dans la déclaration du type

Code :

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

1
2
3
4
5
6
7
8
9
10
 
ype TF1=class(Tobject)
    private
        VCommunication:string;
{     protected
        constructor create; }
    public        
       constructor create; // constructor public
       Property Communication: string read VCommunication write VCommunication;
    end;

[sgmsg]

Merci à tous

Vous avez raison, il faut mettre le constructor create public.

Donc si j'ai bien compris

En étant protected, seul les descendants peuvent l'appeler.

Et l'appel create par un programme ne réserve que les ressources nécessaires pour le fonctionnement sans faire l'initialisation.

Merci encore

[philnext]

Je comprends de moins en moins.
En quoi le fait de mettre le create en privé ou publique change l'initialisation ??
Pour moi le code suivant fonctionne :

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
 
unit Unit1;
 
interface
 
uses
  System.Classes,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;
 
  TF1=class(Tobject)
    private
        VCommunication:string;
     protected
        constructor create;
    public
       Property Communication: string read VCommunication write VCommunication;
    end;
var
  Form1: TForm1;
  F1 : TF1;
 
implementation
 
{$R *.dfm}
 
constructor TF1.create;
begin
  VCommunication := 'TOTO';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    F1:=TF1.create;
    showmessage(F1.Communication);
    f1.free;
end;
 
end.

[ShaiLeTroll]

ton exemple avec TF1 et TForm1 fonctionne grâce à la "portée de module" que l'on peut limiter via un Spécificateurs de visibilité stricte

Deplace TF1 dans une unité dédiée
le protected ne sera plus accessible, en Delphi, toutes classes d'un même fichier (module<->unité) est considérée comme "amie"

Je pense que cela qui bloque dans le code de sgmsg qui a isolé les deux classes

[Dr.Who]

Voila un exemple de "pourquoi on aurait un constructeur protégé" :

au passage, les variables privées devraient toujours commencer par un " f "

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
 
type
  TF1 = class(TObject)
  private
    fCommunication: string;
  protected
    constructor create(const aCommunication: string); overload;
  public
    property Communication: string read fCommunication write fCommunication;
  public
    constructor create; overload;
  end;
 
implementation
 
constructor TF1.create;
begin
  create('Bonjour le monde !');
end;
 
constructor TF1.create(const aCommunication: string);
begin
  inherited create;
  fCommunication := aCommunication;
end;

[Paul TOTH]

Voila un exemple de "pourquoi on aurait un constructeur protégé" :

au passage, les variables privées devraient toujours commencer par un " f "

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
 
type
  TF1 = class(TObject)
  private
    fCommunication: string;
  protected
    constructor create(const aCommunication: string); overload;
  public
    property Communication: string read fCommunication write fCommunication;
  public
    constructor create; overload;
  end;
 
implementation
 
constructor TF1.create;
begin
  create('Bonjour le monde !');
end;
 
constructor TF1.create(const aCommunication: string);
begin
  inherited create;
  fCommunication := aCommunication;
end;

je ne vois pas trop l'intérêt d'en faire un constructor, cela pourrait être une simple fonction...à moins de propose le code suivant:

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
 
type
  TF1 = class(TObject)
  private
    fCommunication: string;
  protected
    constructor create(const aCommunication: string); overload;
  public
    property Communication: string read fCommunication write fCommunication;
  public
    class function CreateF1: TF1;
  end;
 
implementation
 
class function CreateF1: TF1;
begin
  Result := TF1.create('Bonjour le monde !');
end;
 
constructor TF1.create(const aCommunication: string);
begin
  inherited create;
  fCommunication := aCommunication;
end;

[Andnotor]

Ce qui n'est pas très logique est de le mettre en protected

Sinon, CreateF1 n'est identique au constructeur que dans la classe TF1. Dans une classe dérivée (TF2 = class(TF1)), les constructeurs renverront bien une classe TF2 contrairement à CreateF1.
La surcharge du constructeur est bien mieux