[ESS-Model] syntaxe étrange pour moi !

Bonjour,

J'ai récupéré les sources de ESS Model depuis: https://essmodel.sourceforge.net/ car j'ai envie de les remettre au gout du jour (voir de le migrer sous Firemonkey).

A la première compilation, je tombe sur une syntaxe étrange pour moi dans le fichier uModel.pas !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

interface   type function AllClassesPackage : TAbstractPackage;   implementation   //Unique Flag-instance, if Integrator.CurrentEntity=AllClassesPackage then show all classes function AllClassesPackage : TAbstractPackage; const _AllClassesPackage : TAbstractPackage = nil; begin if _AllClassesPackage=nil then _AllClassesPackage := TAbstractPackage.Create(nil); Result := _AllClassesPackage; end;

---

Je ne connaissait pas ce type de syntaxe est visiblement les dernières versions de Delphi, non plus !

J'ai testé ceci mais, j'ai l'impression que cela ne réagit pas comme la solution l'attends !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

interface   type function AllClassesPackage : TAbstractPackage;   implementation   var _AllClassesPackage: TAbstractPackage = nil;   //Unique Flag-instance, if Integrator.CurrentEntity=AllClassesPackage then show all classes function AllClassesPackage: TAbstractPackage; begin if _AllClassesPackage = nil then _AllClassesPackage := TAbstractPackage.Create(nil);   Result := _AllClassesPackage; end;

---

Ce qui fait que je me demande par quoi la remplacer pour garder la logique sous-jacente, auriez-vous une idée ?

une const locale modifiable pour faire un singleton, n'importe quoi, c'est tellement vilain cette façon de faire !
surement {$WRITEABLECONST ON} et dans le fichier DOF on voit "J=1" donc {$J+} qui fait fonctionner ce code.

La variable n'est jamais libérée non plus ... pas besoin d'aller plus loin, si tout le code a cette philosophie, tu n'as rien à apprendre de bon dedans, tu vas suivre une logique tordue sans la comprendre, il y a de bonnes choses mais aussi des mauvaises (destructeur mal écrit pour certains)

Cherche Singleton sur le forum, il y a un article complet avec différentes approches selon la version de Delphi

même le "type" dans interface n'a pas sa place mais c'est parce que tu as copier-merder ici à cause d'une indentation erronée dans le code d'origine.

Citation:

---

Envoyé par ShaiLeTroll

même le "type" dans interface n'a pas sa place mais c'est parce que tu as copier-merder ici à cause d'une indentation erronée dans le code d'origine.

---

Merci du retour, mais je n'ai pas compris ton propos sur le "copier-merder" ?

copier-merder c'est un copier-coller raté, tout simplement

Citation:

---

Envoyé par der§en;11985877 j'ai envie de les remettre au gout du jour ([I

voir de le migrer sous Firemonkey[/I]).

---

Gros challenge

Ok, en quoi, j’ai copier-Merder ?

Citation:

---

Envoyé par der§en

Ok, en quoi, j’ai copier-Merder ?

---

Code:

---

1 2	type function AllClassesPackage : TAbstractPackage;

---

ben type n'a rien à faire avant function dans ce cas là, c'est une mauvaise indentation du code qui fait penser que c'est utile mais c'est syntaxiquement c'est faux de réduire le code ainsi à partir du code source original.