Discussion :

[petitcoucou31]

Bonjour à tous,

J'ai un programme qui se construit (compile) sans problème dans les configurations suivantes :
Windows 7 + Delphi XE
Windows 10 + Delphi Rio (version de Delphi 10.3.3)

J'essaye de reconstruire (compiler) ce programme sous Windows 11 et Delphi Alexandria (version de Delphi 11.3) , mais j'ai une erreur dans un composant tierce, il semblerait que cela tienne
à des déclarations. mais je ne comprends pas vraiment.
Je sollicite votre aide essayer de me sortir de cette impasse.

Je vous joint les bouts de code qui me semble important et qui j'espère devrait vous permettre de m'aider.

La déclaration de "TcalcArray" et de "TclacItem" , qui sont en cause.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 TFormulaDataType = (fdtnumber, fdtstring);

 TCalcItem = record
   data : double;
   str : string;
   typ : TFormulaDataType;
 end;

 TCalcArray = array of TCalcItem;
 PCalcItem = ^TCalcItem;
 PCalcArray = ^TCalcArray

La déclaration de "data"

Code :

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

1
2
3
4
5
6
7
 TFormulaCalc = class
 protected
  max,pos : integer;
  data : TCalcArray;
  fParent : TArtFormula;
 public

La destruction de l'enregistrement "data"

Code :

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

1
2
3
4
5
6
7
 
destructor TFormulaCalc.Free;
var i : integer;
begin
 for i := 0 to high(data) do freeandnil(data[i]);
 data := nil;
end;

L'erreur se déclenche quand on exécute, libère la structure "Data", sur l'instruction " Freeandnil(data[i]) "
avec le message d'erreur suivant: E2010 Types incompatibles : " Tobject" et "TclacItem "

je suis preneur de toutes aides !!

merci a vous.

[Andnotor]

Un enregistrement n'est pas un objet, ça libération est implicite, il n'a pas destructeur (enfin si il pourrait sur un Delphi récent mais ce n'est pas un véritable destructeur, plutôt une méthode appelée à la libération implicite de l'élément, à l'instar d'un OnDestroy).

Mettre Data à nil ou fixer sa longueur à 0 suffit à libérer la mémoire associée.

Si l'enregistrement lui-même contenait un objet, là oui il faudrait libérer cet objet mais ici il n'en contient aucun.

[ShaiLeTroll]

En plus un Free redefini, tu peux jeter cette lib (composant tierce), c'est totalement non conforme, c'est le Destroy qu'il faut redéfinir.
Si tout est dans ce genre, je ne lui ferais aucune confiance.
Tu devrais au pire mettre à jour, la version en cours de ArtFormula a été corrigé, aussi bien sur le Destroy que sur le FreeAndNil
Au moins le développeur a progressé avec le temps mais on y voit une tonne de code pouvant être refactoré.

Et comme AndNotOr le fait remarquer, le tableau sera libéré avec l'objet donc pas besoin de ce code.



Sinon, il semble que la déclaration procedure FreeAndNil(var Obj); soit enfin corrigé en procedure FreeAndNil(const [ref] Obj: TObject); ce qui est une bonne chose car cela permet de détecter ce genre de code erroné.

Je me demande bien d'ailleurs comment cela pouvait ne pas provoquer une erreur l'exécution avant

[petitcoucou31]

Merci a vous deux.

Je vais voir la mise a jour de "ArtFormula", mon composant date d'au moins 20 ans !!