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.