Appel a Create sans créer l'instance de l'objet

Bonjour

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 45 46 47 48 49 50

unit u_traitement;   interface uses classes,dialogs,db,sysutils,forms,IBQuery; type traitement = class Frm_trait : Tform; fls_trait : Tfilestream; fld_trait : Tblobfield; ibq_trait : TIBquery; end; Trt_savfldb = class(Traitement) odg_trait : Topendialog; Constructor Create( ibq_trait : TIBquery;fld_trait : Tblobfield;Frm_trait :Tform); end; Trt_savfldisc = class(Traitement) sdg_trait : Tsavedialog; Constructor Create( ibq_trait : TIBquery;fld_trait : Tblobfield;Frm_trait :Tform); end;   implementation     Constructor Trt_savfldb.Create( ibq_trait : TIBquery;fld_trait : Tblobfield;Frm_trait : Tform); Begin if ibq_trait.State in [dsEdit, dsInsert] then Begin odg_trait := Topendialog.Create(Frm_trait); if odg_trait.Execute then begin fls_trait := Tfilestream.Create(odg_trait.FileName ,fmopenread); fld_trait.LoadFromStream(fls_trait); end; ibq_trait.Post; end; end;   Constructor Trt_savfldisc.Create( ibq_trait : TIBquery;fld_trait : Tblobfield;Frm_trait : Tform); Begin   if not(ibq_trait.State in [dsEdit, dsInsert]) then Begin sdg_trait := Tsavedialog.Create(Frm_trait); if sdg_trait.Execute then fld_trait.SaveToFile(sdg_trait.FileName); end;   end;   end.

---

pour appeller cette classe

Code:

---

Trt_savfldb.Create(ibq_user,ibq_userDOC,frm_Princ);

---

et

Code:

---

Trt_savfldisc.Create(ibq_user,ibq_userDOC,frm_Princ);

---

// pas d'exception

Je comprend pas pourquoi dans certain cas on doit créer l'instance de l'objet.

Code:

---

1 2 3 4

var tt : traitement ; begin tt := Trt_savfldb.Create(ibq_user,ibq_userDOC,frm_Princ);

---

Merci

Je ne comprends pas exactement le sens de ta question !!

Mais, si on conçoit des classes c'est peut-être qu'à un certain moment on va les utiliser donc créer une instance de ces objets puis à un autre moment les libérer

soit de la façon suivante si l'on utilise une instance pour un traitement local :

Code:

---

1 2 3 4 5 6 7

with TMon_objet.Create(param) do try "traitement..." finally Free; // je n'en ai plus bsoin end;

---

ou si l'instance de l'objet existe sur une période plus longue

Etape 1: je crée

Code:

---

1 2 3 4 5

var mon_instance: TMon_objet ... mon_instance := TMon_objet.Create(param);

---

Etape 2: Je détuis plus tard

Code:

---

1 2 3

... mon_instance.Free;

---

Bonjour,

Dans la mesure où tout ton traitement se trouve dans ton create, effectivement tu ne vois pas pourquoi utiliser une variable d'instance. Peut-être devrais-tu essayer d'utiliser un outil comme memcheck dans ton projet, cela te donnerai surement une réponse à ta question :
quand tu appelle ta méthode Create tu Créés bien ton objet, ce n'est pas le fait de l'affecter à une variable d'instance qui le créé !!
Perso je te déconseille même fortement ce genre de chose car gare aux fuites mémoire : tu créés un objet et tu n'as plus aucun moyen d'y accéder pour le libérer, il est bel et bien perdu quelque part dans la mémoire.

Je pense que tu confond avec le méthodes de classe qui peuvent, elles, être appelées sans instancier l'objet. Dans ce cas oui, il n'y a pas de problème, mais tu ne pourras alors accéder à aucun membre de ton objet qui n'est à ce coup ci pas instancié ;)

@++
Dany

En Pascal Objet ..si On veux utiliser une instance de classe (un Objet )
on dois le creer dynamiquement puis le liberer lorsqu'on a plus besion

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

type TRien = class ... end;   var Rien : TRien ;   Rien := TRien.Create(Param); .... FreeAndNil(Rien);

---

Si tu veux créer des méthodes de classes (méthode statique) tu dois déclarer tes méthodes avec class devant.

Code:

---

1 2 3

TMonObjet = class public class function MaFonction;

---

Tu peux même accéder a des champs de ta classe qui doivent être impérativement des variables de classe.

Code:

---

1 2 3 4 5

TMonObjet = class public class function MaFonction: Boolean; class var MonChampsStatique : Boolean; end

---

Attention tout de même il faut avoir au moins D2005 il me semble pour les class var.

après tu accède a ta méthode en faisant :

Code:

---

if TMonObjet.MaFonction then ...

---

Plus besoin d'instancier ton objet.
Je ne sais pas si c'est ce que tu cherchais à faire mais bon je te file une piste.

Merci à Tous

Citation:

---

Envoyé par skywaukers

Bonjour,

Dans la mesure où tout ton traitement se trouve dans ton create, effectivement tu ne vois pas pourquoi utiliser une variable d'instance. Peut-être devrais-tu essayer d'utiliser un outil comme memcheck dans ton projet, cela te donnerai surement une réponse à ta question :
quand tu appelle ta méthode Create tu Créés bien ton objet, ce n'est pas le fait de l'affecter à une variable d'instance qui le créé !!
Perso je te déconseille même fortement ce genre de chose car gare aux fuites mémoire : tu créés un objet et tu n'as plus aucun moyen d'y accéder pour le libérer, il est bel et bien perdu quelque part dans la mémoire.

Je pense que tu confond avec le méthodes de classe qui peuvent, elles, être appelées sans instancier l'objet. Dans ce cas oui, il n'y a pas de problème, mais tu ne pourras alors accéder à aucun membre de ton objet qui n'est à ce coup ci pas instancié ;)

@++
Dany

---

Oui mais normalement je devai avoir une exception du qu'on pointe vers Nil, Exemple:

Code:

---

1 2 3 4 5

var idb_centrale: TIBDatabase ; Begin idb_centrale.create // exception ---> pointe vers un Nil End;

---

bon je pense qu'il y'a une différence au niveau de mon Create et le create en générale que j'arrive pas à Distinguer.

Citation:

---

Envoyé par helmis

Merci à Tous
Oui mais normalement je devai avoir une exception du qu'on pointe vers Nil

---

Non, absolument pas. Dans ton constructor, tu créés bien les objets que tu utilise, et vu que le constructor a créé l'instance il n'y a aucun problème, tu ne pointe absolument pas sur nil, mais bien sur une instance de ta classe. Le seul problème, c'est que comme tu ne l'affecte à aucune variable d'instance, par conséquent dès la ligne suivante tu n'a plus moyen de la retrouver.

@++
Dany

Je vois plus Clair maintenant :king:
Merci