initialisation d'une var

Version imprimable

28/11/2006, 01h51
*alexandre*

initialisation d'une var
Hello,

Je cherche à initialisé une variable qui est définit dans une Form.

Example j aimerais pouvoir passé lors de la création d une Form un attribut CurrentLanguage et ainsi loadé les Caption des boutons correspondant
que dois je ajouter dans ma class appellante j ai ceci pour le moment :
Code:

1 2 3 4 5 6 7 8 procedure TSDIAppForm.ButtonGoodiesClick(Sender: TObject); var FormGoodies : TFormGoodies; begin FormGoodies := TFormGoodies.Create(self); FormGoodies.Show; end;

salut

tu peut tres bien creer une methode dans lequel tu passe tes parametre

exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 TFormGoodies = Class(Tform)
...
Public
  Init(Monparam : Integer) ;
end;
...
TFormGoodies.init(Monparam : Integer) ;
begin
  ...
  Show
end;
 
 
procedure TSDIAppForm.ButtonGoodiesClick(Sender: TObject);
var
 FormGoodies : TFormGoodies;
begin
  FormGoodies := TFormGoodies.Create(self);
  FormGoodies.init(monParam);  
  ...
end;

Tu peux créér un constructeur
Code:

1 2 3 4 5 6 Private Variable1 : String; Variable2 : Integer; Public Constructor MaCreation( AOwner: TComponent; MonParam1 : String; MonParam2 : Integer); override;
Ensuite dans l'implémentation
Code:

1 2 3 4 5 6 7 8 Constructor TForm1.MaCreation( AOwner: TComponent; MonParam1 : String; MonParam2 : Integer); Begin inherited Create( AOwner); Variable1 := MonParam1; Variable2 := MonParam2; end;
Par contre, il ne faut pas que la fenêtre soit créée automatiquement en début de projet, mais que tu la créés dynamiquement dans ton programme en faisant, par exemple.
Code:

1 2 3 4 5 6 7 Procedure TForm2.Button1Cliqk( Sender : TObject); Begin Form1 := TForm1.MaCreation( Self, "Toto", 18); Form1.ShowModal; Form1.Free; End;
En espérant t'avoir aidé...

Kwasin

Salut

Kwasin a écrit :
Code:

1 2 3 4 5 6 7 8 Procedure TForm2.Button1Cliqk( Sender : TObject); Begin Form1 := TForm1.MaCreation( Self, "Toto", 18); Form1.ShowModal; Form1.Free; End;
ATTENTION : C'est plantage assuré. La méthode Free d'une fiche (TForm) libère la mémoire mais ne détruit pas l'objet. Il faut (impérativement) utiliser la méthode Release.
Donc :
Code:

1 2 3 4 5 6 7 8 Procedure TForm2.Button1Cliqk( Sender : TObject); Begin Form1 := TForm1.MaCreation( Self, "Toto", 18); Form1.ShowModal; Form1.Release; End;

28/11/2006, 17h12
Louis Griffont
Citation:
Envoyé par Philippe Gormand

ATTENTION : C'est plantage assuré. La méthode Free d'une fiche (TForm) libère la mémoire mais ne détruit pas l'objet. Il faut (impérativement) utiliser la méthode Release.
Donc :

Code:

1 2 3 4 5 6 7 8 Procedure TForm2.Button1Cliqk( Sender : TObject); Begin Form1 := TForm1.MaCreation( Self, "Toto", 18); Form1.ShowModal; Form1.Release; End;
T'es sûr ?
J'ai toujours utiliser Free, et j'ai jamais eu de plantage !
Rmq, je suis en Delphi5, c'est peut-être la raison. ;)
28/11/2006, 17h17
Thierry Laborde

Citation:

Envoyé par kwasin

T'es sûr ?
J'ai toujours utiliser Free, et j'ai jamais eu de plantage !
Rmq, je suis en Delphi5, c'est peut-être la raison. ;)

En fait ce n'est pas obligatoire que ça plante. Mais je confirme ce que dit philippe il faut utiliser Release au lieu de Free. D'ailleurs même l'aide Delphi le confirme (Et c'est valable sur la version 5) :

Citation:

Tous les gestionnaires d'événements de la fiche ou ses enfants doivent utiliser Release àla place de Free (Delphi)ou delete (C++).Sinon,des erreurs d'accès àla mémoire se produiront.
28/11/2006, 19h20
*alexandre*

merci de vos réponses :mrgreen:
29/11/2006, 08h09
Lung

Citation:

Envoyé par Philippe Gormand

ATTENTION : C'est plantage assuré. La méthode Free d'une fiche (TForm) libère la mémoire mais ne détruit pas l'objet. Il faut (impérativement) utiliser la méthode Release.

Je ne comprend pas. Comment un objet peut-il exister s'il n'existe plus en mémoire ?

:koi:
29/11/2006, 09h34
Thierry Laborde

Citation:

Envoyé par Lung

Je ne comprend pas. Comment un objet peut-il exister s'il n'existe plus en mémoire ?

:koi:

En fait l'objet n'existe plus avec un Free. Le problème vient simplement du fait que le Free libère la fiche directement sans s'occuper des évenements possibles. Du coup des plantages sont possible. La doc Delphi dit ceci :

Citation:

Release ne détruit pas la fiche avant que tous les gestionnaires d'événements de la fiche et des composants de la fiche n'aient eu le temps de terminer leur exécution.Cette procédure garantit aussi que tous les messages de la file d'attente des événements de la fiche sont traités avant la libération de la fiche.

Salut,

Dans ce cas précis, j'utiliserais un propriété avec un methode Setter.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
TFormGoodies = Class(Tform)
private
  procedure SetMonParam(Value : Integer);
Public
Property MonParam : integer write SetMonParam;
end;
...
TFormGoodies.SetMonParam(Value : Integer) ;
begin
 // tu met ici toutes les actions à faire en fonction de value : genre modification de caption bouton, menu, etc
  .....
end;
 
 
procedure TSDIAppForm.ButtonGoodiesClick(Sender: TObject);
var
 FormGoodies : TFormGoodies;
begin
  FormGoodies := TFormGoodies.Create(self);
  FormGoodies.MonParam := 10;  
  ...
end;

Voilà.

A+

29/11/2006, 10h03
TicTacToe

Juste pour revenir au Release vs Free

+1 pour le Release.

Bien qu' un Free derriere un ShowModal théoriquement il y a peu de chance de plantage (quoi que...:? ).

Release fait un Free par message (voir source de TCustomForm.Release), message qui se retrouve à la fin de la file d'attente.
On est donc assuré, que tous les messages précédents sont traités, et le Free traité en dernier.

Par contre cela n'a rien a voir avec les gestion de la mémoire il me semble...
Release fait un Free purement et simplement... mais en étant sur que c'est à la fin de tout traitement.
29/11/2006, 11h26
Louis Griffont

Je comprend la différence entre Release et Free. Toutefois je pense que les problemes ne peuvent provenir que dans le cas de traitement non modal, car après un showmodal, il ne devrait plus y avoir de problème.

Pour plus de sureté, j'utiliserai dorenavant Release. ;)

Merci pour les explications

PS : Ca ne change rien au principe du constructeur surchargé pour passer des paramètres.:lol:
29/11/2006, 20h27
Droïde Système7

Bonjour,

La méthode "Free" pour détruire un Tform doit être à la méthode "Application.Terminate" ce qui permet de quitter un programme.

Autrement dit, pas ces méthodes bourrines, une méthode "Release" pour détruire un TForm et une méthode "Close" pour quitter un programme. Là aussi cette méthode "Close" permet de liquider dans les règles de l'art et proprement les éventuelles séquences en file du programme.

Enfin... si j'ai bien suivi ;)
30/11/2006, 17h15
edam

pour ma part j'utlise toujour release
free est déconseillé surtout si il est applé dans la meme fiche, (comme si en sie un branche....)
pour le multilangue déjà ce sujet est passé, fait un peut de recherche