Initialisation d'une des variable lors de la création d'un composant

Version imprimable

Bonjour à tous

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

Voici le code du composant:
Code:

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:

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

28/03/2013, 08h11
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.
28/03/2013, 09h27
peter27x

Pour la deuxième question, faut que tu passes un paramètre dans ton create (à modifier en conséquence).
28/03/2013, 10h36
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:

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

Citation:
Envoyé par 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:

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:

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;

28/03/2013, 13h00
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

C'est quoi ce Bordel ??

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:

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.

28/03/2013, 15h31
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

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

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

Code:

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;

Citation:

Envoyé par 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:

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:

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;

01/04/2013, 10h48
Andnotor

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

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 ;)