Bonjour,
je voudrais créer une nouvelle classe, et tant qu'a faire, l'utiliser !
mais j'ai beaucoup de problème et je n'arrive pas à trouver les réponses sur le net.
voici une partie de mon code.

// définition de ma classe
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
 
Type
  TMaClasse = class
    Private
      NbBit : byte;
      NP2   : int64;
    Public
      Constructor Create();
      Procedure InitParam();
  end;
 
Constructor TMaClasse.Create();
  begin
    NbBit:=0;
    NP2  :=0;
  end;
 
Procedure TMaClasse.InitParam();
  begin
    NbBit:=8;
    NP2:=NbBit*NbBit+1;
  end;
utilisation de ma classe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
// dans l'événement clic d'un bouton
 
var
  MaClasse : TMaClasse;
begin
  MaClasse.Create();
  MaClasse.InitParam(); // ?????????????????
 //  suite
end;

mes deux premiers problèmes :
1) le compilateur me signale la ou j'ai mis les points d'interrogation que la variable 'MaClasse' n'est peut-être pas initialisée ???
2) quand je quitte le programme, 'Exception EAccess Violation dans le module ...

Merci pour votre aide et bonne journée