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;