Discussion :

[der§en]

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 :

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

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

[ShaiLeTroll]

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.

[der§en]

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

[ShaiLeTroll]

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

[SergioMaster]

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

Gros challenge

[der§en]

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

[ShaiLeTroll]

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

Code :

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

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.