Discussion :

[Jcpan]

Bonjour

Code :

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

1
2
3
 
form := TForm2.Create(application);
form.show;

C'est quoi la différence si je fais à la suite

Code :

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

form.Free;

Code :

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

form.Release

Code :

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

form.Destroy

Code :

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

FreeAndNil(form);

pour libérer ma forme ?


Merci d'avance

[Cl@udius]

Salut

Form.Free:
libère l'objet Form.

Form.Release:
pour faire simple, envoie un message à l'objet Form pour qu'il se libère.

Form.Destroy:
on n'appelle jamais directement la méthode Destroy d'un objet, Destroy est appelé lors d'un Free.

FreeAndNil(Form):
correspond à Form.Free puis Form := nil

Quant au meilleur choix, pour une Form j'utilise Release.

@+ Claudius

[Paul TOTH]

n'avons nous pas déjà abordé le sujet ici ?

sinon tu as tous les détails là

[Jcpan]

oui mais j'en ai rajouté Release et Destroy , je vais emprunter ce livre d'un collège.

Merci

[Dr.Who]

Free : s'assure d'une instance valide avant d'appeler Destroy

Code :

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

1
2
3
4
5
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

release : envois un message pour notifier à TCustomForm de se libérer puis le gestionnaire de message CMRelease appel Free.
Rien ne garantis la libération de l'objet via le message CM_RELEASE pouvant être intercepté et annulé, ce qui offre des avantages dans certains cas particulier mais n'est pas une méthode fiable pour libérer l'objet immédiatement.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TCustomForm.Release;
begin
  PostMessage(Handle, CM_RELEASE, 0, 0);
end;
 
procedure TCustomForm.CMRelease;
begin
  Free;
end;

Close : procède à quelque verification et manipulation avant d'appeler Release, c'est de loin la méthode la plus propre pour fermer et libérer une fiche.

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
procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

FreeAndNil : sauvegarde et mets l'instance d'un objet à nil puis libère ce dernier. Utiliser FreeAndNil n'est pas utile si l'on as pas besoin de remettre à nil la variable objet utilisé, notamment en fin de programme.

Code :

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

1
2
3
4
5
6
7
8
procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

[Andnotor]

Free : s'assure d'une instance valide avant d'appeler Destroy

Pas tout à fait ! Free s'assure juste qu'une valeur soit assignée au pointer Self. Valide ou pas .
Ce code se plante lamentablement:

Code :

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

1
2
3
4
  V1 := TObject.Create;
  V2 := V1;
  V1.Free;
  V2.Free;

release : envois un message pour notifier à TCustomForm de se libérer puis le gestionnaire de message CMRelease appel Free.
Rien ne garantis la libération de l'objet via le message CM_RELEASE pouvant être intercepté et annulé, ce qui offre des avantages dans certains cas particulier mais n'est pas une méthode fiable pour libérer l'objet immédiatement.

Son rôle est justement d'être asynchrone et ainsi de permettre à la fiche de se libérer elle-même.

[Franck SORIANO]

Quant au meilleur choix, pour une Form j'utilise Release.

Moi au contrainre, je n'utilise jamais Release.
Grosso modo, on rencontre deux cas d'utilisations :
- Appel d'une fiche modale : On va commencer par instancier la fiche, on fait le ShowModal, on lit les résutlats, puis on détruit la fiche. On maîtrise parfaitement le cycle de vie de la fiche, donc on peut la créer et la détruire avec un beau try-finally, et un Free.
- Appel d'une fiche non modale : Dans ce cas, on affiche la fenêtre et on la laisse vivre jusqu'à ce que l'utilisateur la ferme. Lorsque l'utilisateur a fermée la fiche, sauf cas exceptionnels, on ne l'utilisera plus. Autrement dit, c'est le Close qui entrainera la destruction de la fiche -> Action := caFree dans le FormClose ! Si on veut fermer la fiche par code, depuis un bouton de la fiche elle-même, il suffit alors de faire un Close.

[Cl@udius]

Hello

Pour le cas d'une fiche modale je suis entièrement d'accord avec toi, j'utilise d'ailleurs régulièrement un Free. Aucun danger puisque l'on contrôle la durée de vie de la fiche.

Pour le cas d'une fiche non modale, je suis également d'accord sur l'utilisation d'un caFree dans le FormClose. C'est une méthode parfaitement propre, même si je l'utilise rarement.
Le seul danger réside dans l'utilisation d'un Free, si celui-ci est appelé (comme on le voit parfois) depuis la fiche elle-même: boom
C'est pour cela que je préconise régulièrement l'utilisation de Release qui lui est sans danger.

Mais chaque développeur a ses habitudes, et les deux méthodes se valent tout autant.

@+