Créer une instance de classe

Version imprimable

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:

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.

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

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
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.

26/08/2008, 15h58
Jcpan

Merci :D
et puis comme je fais l'appel depuis une autre Classe ?
26/08/2008, 16h10
Jcpan

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

merci encore
27/08/2008, 08h40
Jcpan

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

Merci
27/08/2008, 08h48
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:

1 2 class procedure MaMethode;
Exécution
Code:

1 2 TMaClasse.MaMethode;

Désolé mais j'ai pas compris :koi:
je suis parti de cette exemple
Citation:
Envoyé par ShaiLeTroll
tu peux instancier la variable dans la partie initialization genre

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

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:

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:

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

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;

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

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;