Discussion :

[Pierre le Grand]

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
 
 
VAR
    UneInstance: TMaClasse
 
 
Begin
   UneInstance:= TMaClasse.Create(1); //création
 
   UneInstance.Create(2); //Simple initialisation sans création
End;
 
Constructor TMaClasse.Create(const i: integer);
Begin
 
   IF (quelquechose) THEN //Je cherche quoi mettre dans ce test à la place de «quelquechose»
     RAISE ECetteInstanceNePeutPasEtreInitialiseeDeuxFois.Create('Les instances de TMaClasse sont constantes après la création et ne peuvent pas être modifiées.');
 
   fi:=i;
End;

Existe-il une variable ou une fonction qui permettrait de différencier entre les deux utilisations d'un constructeur?

En C++ le problème ne se poserait même pas par ce qu'un constructeur n'est pas utilisable en tant que fonction normale. Il faut dire que C++ a des siècles d'avance sur Free Pascal dans le domaine des instances constantes par ce que les attributs d'une classe peuvent être déclarées constants et initialisés dans la liste d'initialisation du constructeur et qu'une instance de classe peut être déclarée constante.

[Roland Chastain]

Bonjour !

Je dirais qu'utiliser le constructeur pour une simple initialisation sans création, c'est vouloir lui faire faire autre chose que ce pourquoi il est fait. Moi je ferais une procédure pour l'initialisation. Mais peut-être que je me trompe : les autres le diront.

J'ai changé "différentier" en "différencier", après avoir consulté le Littré, parce que j'avais quand même un doute.

Il ne faut pas confondre différencier, mettre une différence, et différentier, prendre la différentielle (terme de mathématique). Ces deux mots sont les mêmes ; mais l'orthographe les différencie : différence qui d'ailleurs ne s'appuie sur aucune bonne raison.

Dictionnaire le Littré

[Paul TOTH]

En effet, en Pascal le constructeur peut être appelé comme n'importe quelle méthode.

Tous les champs d'un objet étant NULL par défaut, il est facile de distinguer la création d'un appel.

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
 
type
  TMaClasse= class
  private
    alloue: Boolean;
    fi: Integer;
  public
    constructor Create(i: integer);
  end;
 
constructor TMaClasse.Create(i: Integer);
begin
  if alloue then
   raise ECetteInstanceNePeutPasEtreInitialiseeDeuxFois.Create('Les instances de TMaClasse sont constantes après la création et ne peuvent pas être modifiées.');
  alloue := True;
  fi := i;
end;

NB: si "i" ne peut pas avoir la valeur 0 il est également possible de tester sa valeur.

[Roland Chastain]

Un lien vers une autre discussion intéressante à peu près sur le même sujet :

https://www.developpez.net/forums/d1...ique-d-objets/

[Pierre le Grand]

Merci!

J'avais oublié que Free Pascal initialise tous les attributs à NULL contrairement à presque tous les autres langages pour lesquels une variable non initialisée peut contenir n'importe quoi et ne doit jamais être utilisée dans une énoncé IF.

[Alcatîz]

Bonjour,

J'avais oublié que Free Pascal initialise tous les attributs à NULL contrairement à presque tous les autres langages pour lesquels une variable non initialisée peut contenir n'importe quoi et ne doit jamais être utilisée dans une énoncé IF.

... Ce qui n'empêche pas d'avoir le réflexe d'assurer ses arrières. Personnellement, je n'utilise pas une variable sans l'avoir initialisée, et d'autant moins que mon code peut éventuellement être compilé par autre chose que Free Pascal.