Discussion :

[Jcpan]

Bonjour

j'aimerai créer une instance d'une classe dans une unité, je sais qu'il faut utiliser
initialization & finalization, mais je ne sais pas comment le faire.

Merci

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
unit test;
 
interface
 
Type
 Tmaclasse = class
  private
    fnom : string;
    fPronom : string ;
  public
    constructor Create;
    destructor Destroy;
    procedure Clear(fre: tmaclasse) ;
    property nom : string read fnom write fnom;
    property Pronom  : string read fPronom write fPronom;
 end;
 
 
 
implementation
 
  constructor tmaclasse.Create;
  begin
  end;
 
  destructor tmaclasse.Destroy;
  begin
  inherited destroy ;
  end;
 
  procedure tmaclasse.Clear(fre : tmaclasse ) ;
  begin
 
    fnom := '';
    fPronom := '';
 
  end;
 
end.

[Linkin]

Sauf erreur de frappe, ça doit être ça.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit test;
 
interface
 
Type
 Tmaclasse = class
  private
    fnom : string;
    fPronom : string ;
  public
    constructor Create;
    destructor Destroy;
    procedure Clear(fre: tmaclasse) ;
    property nom : string read fnom write fnom;
    property Pronom  : string read fPronom write fPronom;
 end;
 

var
  MonObjet: TMaClasse; 

implementation
 
  constructor tmaclasse.Create;
  begin
  end;
 
  destructor tmaclasse.Destroy;
  begin
  inherited destroy ;
  end;
 
  procedure tmaclasse.Clear(fre : tmaclasse ) ;
  begin
 
    fnom := '';
    fPronom := '';
  
  end;
 

initialization
  MonObjet := TMaclasse.Create;
finalization 
  MonObjet.Free;

end.

[Jcpan]

Merci
et puis comme je fais l'appel depuis une autre Classe ?

[Jcpan]

c'est bon merci, je fais appel à MonObjet directement ;

merci encore

[Jcpan]

une tout dernière question
Comment on fait via une méthode de classe pour le même exemple.

Merci

[Linkin]

Une méthode de classe est indépendante de ce cas, vu qu'il n'y a pas besoin d'une instance de classe.

Déclaration

Code :

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

1
2
 
class procedure MaMethode;

Exécution

Code :

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

1
2
 
  TMaClasse.MaMethode;

[Jcpan]

Désolé mais j'ai pas compris
je suis parti de cette exemple

tu peux instancier la variable dans la partie initialization genre

quelque part dans l'unité (je pense juste après implementation)

Code :

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

1
2
3
 
var
  _Singleton: TBidule = nil; // voir si le Create est possible ici avec les nouvelles versions, en D7 faut constante

------ METHODE VIA INITIALIZATION/FINALIZATION ------

Code :

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

1
2
3
4
5
6
7
8
9
10
 
initialization
  _Singleton := TBidule.Create();
 
finalization
  if Assigned(_Singleton) then
  begin
    _Singleton.Free();
    _Singleton := nil;
  end;

------ METHODE VIA METHODE DE CLASSE ------

Code :

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

1
2
3
4
5
 
type
  TBidule = class(TMachin)
    class function Singleton: TBidule;
end;

Code :

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

1
2
3
4
5
6
7
8
 
class function TBidule .Singleton: TBidule;
begin
  if not Assigned(_Singleton) then
    _Singleton := TBidule.Create();
 
  Result := _Singleton;
end;

[Linkin]

Dans ce cas là, je pense que c'est pour utiliser le Singleton momentanément, ça donnerait

Code :

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

1
2
3
4
5
6
7
8
9
 
MonSingleton := TBidule.Singleton;
try
//
... du code
//
finally
  MonSingleton.Free; // Pas nécessaire si le singleton doit persister.
end;