Programmation orientée objetRésolu

Question

Bonjour,
J'aurais voulu savoir comment on d&#233;clare un constructeur puis un destructeur dans une application car je n'y arrive pas, j'aimerais cr&#233;er mon objet puis ensuite le d&#233;truire.
Merci d'avance.
Mon code est le suivant :

type
  TDBExportation = class(TObject)

public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

  { ----------------------Variables globales---------------------- }
var
  FrmPresentation : TFrmPresentation;

constructor TFrmPresentation.Create(AOwner: TComponent);
begin
  inherited;
  FrmPresentation := TFrmPresentation.Create(Self);
end;

destructor TFrmPresentation.Destroy;
begin
  FrmPresentation.Free;
  inherited;
end;

florenth · Accepted Answer

Salut,

A&#239;e, a&#239;e, a&#239;e.

Tu nous poste un bout d'une d&#233;claration de classe ( TDBExportation ) et
un bout de l'impl&#233;mentation de la classe TFrmPresentation (qui est ta
fiche).

Il y a comme un non-sens mais passons.



Pour ton bout de code de la m&#233;thode Create, j'ai trois choses &#224; redire:

- Inherited; Cette ligne de code appelle le constructeur h&#233;rit&#233; de
TFrmPresentation, en l'occurence TForm j'imagine, qui appellera le
constructeur h&#233;rit&#233; de TForm, TCustomFrom et ainsi de suite jusqu'a
TObject. 

Chaque constructeur se charge d'initialiser (et/ou d'allouer) la
m&#233;moire qu'il aura besoin en plus de celle fournie par la classe
anc&#232;tre.

Ensuite, chaque destructeur se charge de finaliser de lib&#233;rer cette memoire pr&#233;c&#233;demment allou&#233;e dans les m&#233;thodes de la classe.

Tu n'as donc pas besoin de creer ta classe en mettant la ligne FrmPresentation := TFrmPresentation.Create(Self);, 



- FrmPresentation := TFrmPresentation.Create(Self);  que
fait cette ligne ?? Elle appele le constructeur de TFrmPresentation
pour qu'il cr&#233;e une instance de cette classe. Dans le cas pr&#233;sent, le
constructeur s'autoappelera ind&#233;finimant.



- Toujours cette ligne de code. Delphi, en tant qu'outil R.A.D. (Rapid
Application Developpment) se charge d'&#233;crire lui-m&#234;me certains bouts de
code, comme par exemple le comstructeur de chaque Form et son
destructeur. C'est lui aussi qui g&#232;re les propri&#233;t&#233;s que l'on modifie
dans l'inspecteur d'objet. (voir les ficiers .dfm qui contiennent
toutes ces propri&#233;t&#233;s).

Ce n'est donc pas la peine, &#224; toi, en tant que d&#233;veloppeur Delphi, de
t'occuper de la cr&#233;ation de tes fiches. Si tu veux intercepter le
constructeur, &#233;cris une proc&#233;dure en r&#233;ponse &#224; l'evenement OnCreate de
ta fiche et une autre &#224; l'&#233;venement OnDestroy.



Voiula, j'esp&#232;re avoir &#233;t&#233; clair sur cette notion de classe qui n'est pas si &#233;vidente que cela.

Va visiter ce site, tr&#232;s enrichissant:

http://fbeaulieu.developpez.com/guide/   chapitre X: les objets.



@ ++ Florent


Si tu ne te plantes pas ......
tu ne poussera jamais

hysteria74 · Answer

salut, tu as raison je me suis tromp&#233; c'est bien 

Type
   TFrmPresentation = class(TForm)
Je me suis embrouill&#233; car j'ai plusieurs unit&#233;es, a propos de ca d'ailleur, est ce que je peux cr&#233;er un constructeur et un destructeur pour les autres unit&#233;es, d'apr&#232;s ce que tu me dis je ne suis pas oblig&#233; pour ma form mais je peux pour les autres unit&#233;es qui sont li&#233;es avec...

hysteria74 · Answer

Pour etre plus pr&#233;cis j'ai une unit&#233; qui s'appelle UnitEntites :
unit UnitEntites;
type
  { Cr&#233;ation de la classe TDBEntites }
  TDBEntites = class(TObject)

public
    { D&#233;clarations publiques }
    function Lister(Appli, Table, ClusterRank: Integer) : TClientDataSet;
    function ModifierLigne(Appli, Table, ClusterRank, LineRank, InfoColumnRank: Integer; InfoValue: WideString) : Boolean;
    function SupprimerLigne(Appli, Table, ClusterRank, LineRank, NbLines: Integer) : Boolean;
end;

Dans ma form TFrmPresentation, est ce que c'est bien de mettre ce bout de code pour cr&#233;er l'instance de Entites :

procedure TFrmPresentation.FormCreate(Sender: TObject);
begin
  // Cr&#233;ation de l'instance de Entites
  Entites:= TDBEntites.Create;
  // Appelle de la fonction OuvertureCatalogue de TFrmPresentation
  FrmPresentation.OuvertureCatalogue;
end;

procedure TFrmPresentation.FormDestroy(Sender: TObject);
begin
  // Lib&#233;rer l'espace allou&#233;
  Entites.Free;
end;

florenth · Answer

Oui, c'est tr&#232;s bien de cr&#233;er sa classe dans le OnCreate puis de la lib&#233;rer dans le OnDestroy.



Bonne suite ...

Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

Programmation orientée objet

4 réponses

Votre réponse

Discussions similaires