Discussion :

[ThWilliam]

Bonjour à tous.

Avec :

Code :

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

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 :

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

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

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

Merci d'avance.
Cordialement
Thierry

[BeanzMaster]

Salut Thierry il y un directive à cocher dans les options de compilation mais je sais plus ou . 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

[ThWilliam]

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.

[Andnotor]

Personnellement, je ne comprends pas cette construction

[ThWilliam]

Personnellement, je ne comprends pas cette construction

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

[e-ric]

Personnellement, je ne comprends pas cette construction

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

[M.Dlb]

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.