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