Avertissement ou erreur avec New pointeur

Bonjour à tous.

Avec :

Code:

---

1 2 3 4 5

type PMyClass = ^TMyClass; TMyClass = class // ... end;

---

Pour créer un pointeur sur une instance de TMyClass, j'ai toujours fait comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

var MyClass: TMyClass; P: PMyClass; begin MyClass:= TMyClass.Create; // ... New(P); P^:= MyClass; //... end;

---

J'obtiens un warning : use extended syntax of NEW and DISPOSE for instance of objects

Si j'utilise la syntaxe étendue de NEW, j'obtiens une erreur : The extended syntax of new or dispose isn't allowed for a class
Faudrait savoir !!! :mrgreen:

Par contre, en redéfinissant : MyClass = object , la syntaxe étendue marche.

Merci d'avance.
Cordialement
Thierry

Salut Thierry il y un directive à cocher dans les options de compilation mais je sais plus ou :oops:. Si tu essayes le tuto de Gilles sur les enregistrements étendus, je pense que tu auras également une erreur dans le même genre.
Le plus simple essayes d'ajouter la directive $X ou $EXTENDEDSYNTAX à ton projet

Salut Beanz,

J'ai trouvé le warning à décocher dans les options du compilateur/messages : le 15° en partant de la fin (lazarus 1.6.4)

Merci à toi
Bonne soirée

Thierry

[EDIT] : aucun résultat avec les 2 directives que tu as mentionnées.

Personnellement, je ne comprends pas cette construction :koi:

Citation:

---

Envoyé par Andnotor

Personnellement, je ne comprends pas cette construction :koi:

---

Avant de recevoir un warning, je ne connaissais pas cette deuxième procédure New.

procedure New(var P: Pointer; Cons: TProcedure);

Pour un pointeur sur un objet, Cons = appel au constructeur de l'objet --> New crée l'instance.
Pour Dispose, on indique le destructeur.

https://www.freepascal.org/docs-html...ystem/new.html
https://www.freepascal.org/docs-html...m/dispose.html

Pour moi, cela n'apporte rien, et je ne vais pas modifier ma façon de faire "ancestrale".
D'autant plus, que cela ne marche pas avec une classe (même si le constructor n'a pas de paramètres).

Cordialement
Thierry

Citation:

---

Envoyé par Andnotor

Personnellement, je ne comprends pas cette construction :koi:

---

Pareil !!!
Un objet (instance) de classe est déjà un pointeur, je dirai même que cela peut aboutir à du code présentant de gros risque de plantage car il devient relativement aisé d'affecter un objet non conforme en terme de type.

Ce genre de déclaration avancée était surtout réservée aux enregistrements en vue des allocations dynamiques, qui sont implicites avec les objets au sens Delphi et FPC.
L'emploi de New avec un pointeur de classe va allouer la mémoire nécessaire mais n'initialisera pas l'objet et n'appellera pas le constructeur contrairement à l'appel au constructeur de la classe.

Je ne connaissais pas non plus la procédure New avec constructeur, il semble que cela soit réservé aux Object, ancienne construction du Pascal Objet à laquelle a succédé la classe telle que nous la connaissons. en outre, attention à la signature du constructeur attendu (aucun paramètre).

Cdlt

Citation:

---

Envoyé par e-ric

Pareil !!!
Un objet (instance) de classe est déjà un pointeur, je dirai même que cela peut aboutir à du code présentant de gros risque de plantage car il devient relativement aisé d'affecter un objet non conforme en terme de type.

Ce genre de déclaration avancée était surtout réservée aux enregistrements en vue des allocations dynamiques, qui sont implicites avec les objets au sens Delphi et FPC.
L'emploi de New avec un pointeur de classe va allouer la mémoire nécessaire mais n'initialisera pas l'objet et n'appellera pas le constructeur contrairement à l'appel au constructeur de la classe.

Je ne connaissais pas non plus la procédure New avec constructeur, il semble que cela soit réservé aux Object, ancienne construction du Pascal Objet à laquelle a succédé la classe telle que nous la connaissons. en outre, attention à la signature du constructeur attendu (aucun paramètre).

Cdlt

---

Je confirme, il s'agit de l'ancienne méthode d'allocation de mémoire pour les objets, utilisé jusqu'en Turbo Pascal. On peut encore s'en servir pour l'allocation de pointeurs sur des enregistrements.