Discussion :

[neho88]

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

[Lung]

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

Il a raison :

Code :

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

MaClasse := TMaClasse.Create();

Et il faudra penser à la libérer.

[retwas]

Tu n'as pas besoin des parenthèses sur les méthodes

Utilise le try ... finally pour libérer proprement ton objet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  MaClasse : TMaClasse;
begin
  MaClasse := TMaClasse.Create;
 
  try
    MaClasse.InitParam;
  finally
    MaClasse.Free;
  end;
end;

[neho88]

Merci pour vos deux réponses