Discussion :

[franckcl]

Bonjour,

Delphi 10.2 Update 1 (toute dernière version)
Cible Windows 32 ou 64

Il suffit de faire cela:
- Créer une nouvelle application multipériphérique
- Ajouter un composant TSwitch
- Ajouter la ligne suivante à la fin de la fiche principale pour pouvoir afficher les fuites mémoires:

Code :

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

1
2
3
initialization
   System.ReportMemoryLeaksOnShutdown:=true; // report memory leaks when exiting the application
end.

En quittant l'application, on se retrouve avec une liste incroyable d'objets non libérés.


Est ce que ce problème est lié à ma configuration ?

merci
Franck

[Cirec]

Bonjour,

j'ai tenté de reproduire ces fuites mais sans succès.
Mais je n'ai qu'une version Starter 10.2 donc sans Update ... ceci explique certainement cela.

Cordialement,
@+

[Papy214]

idem sur une version avec update ok

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:



1 - 12 bytes: TCanvasDestroyListenerProxy x 2, TDictionary<System.string,System.Generics.Collections.TList<FMX.Forms.TApplication.TFormRegistryItem>>.TKeyCollection x 1, TIdleMessage x 1, Unknown x 4

13 - 20 bytes: TApplication.TFormRegistryItem x 1, TApplicationFormFactor x 1, TKeyMapping x 1, UnicodeString x 2

21 - 28 bytes: TStyledControl.KillResourceLink$ActRec x 1, TWinAcceleratorKeyRegistry x 1, TStyleShadow x 2, TBitmapLinks x 18, Unknown x 1

29 - 36 bytes: TBitmapLink x 12, TStyleTextShadow x 4, TControlSize x 21, UnicodeString x 8

37 - 44 bytes: TFont x 2, TFontColorForState x 4, TPosition x 84

45 - 52 bytes: TList<FMX.Forms.TApplication.TFormRegistryItem> x 1, TDictionary<System.Word,System.Word> x 1, TDictionary<System.Word,FMX.KeyMapping.TKeyMapping.TVirtualKeyInfo> x 1, TDictionary<FMX.Types.TWindowHandle,FMX.Platform.Win.TUpdateRects> x 1, TDictionary<FMX.Forms.TCommonCustomForm,FMX.Platform.Win.TFullScreenParams> x 1, TDictionary<System.Integer,System.NativeUInt> x 1, TDictionary<System.NativeUInt,FMX.Platform.Win.TWin32MenuInfo> x 1, TList<FMX.Platform.Win.TWin32TimerInfo> x 1, TList<System.Classes.TComponent> x 1, TList<FMX.TextLayout.TTextAttributedRange> x 2, TPositionOffset x 6, TSettingsFont x 4, TBounds x 91, TList<System.Classes.TCollectionItem> x 18

53 - 60 bytes: TObjectDictionary<System.string,System.Generics.Collections.TList<FMX.Forms.TApplication.TFormRegistryItem>> x 1, TTextTextSettings x 4, Unknown x 6

61 - 68 bytes: UnicodeString x 1

85 - 92 bytes: Unknown x 1

157 - 172 bytes: TTextLayoutD2D x 2

205 - 220 bytes: TApplication x 1, TPlatformWin x 1

877 - 956 bytes: TStyleObject x 18

957 - 1052 bytes: TSwitchTextObject x 2, TBitmapSwitchObject x 1


---------------------------
OK
---------------------------

[franckcl]

Donc c'est bien un bug Delphi avec le dernier update.
Merci Papy214.

Je vais essayer d'en avertir Embarcadero, mais je ne sais pas trop comment faire, je vais chercher.
merci

[Papy214]

par le site de barnsten qui fera suivre peut-être ?

[SergioMaster]

Bonjour,

Donc c'est bien un bug Delphi avec le dernier update.
Merci Papy214.

Je vais essayer d'en avertir Embarcadero, mais je ne sais pas trop comment faire, je vais chercher.
merci

Désolé je n'ai pas encore testé

pour indiquer un bug le mieux est le Quality portal

[Edit] à priori cette fuite n'a pas été reportée ..

[franckcl]

Je suis allé sur Quality central et ce bug a été déclaré le 9 Aout 2017

C'est le RSP-18780

https://quality.embarcadero.com/browse/RSP-18780

Voici la liste des composants qui seraient impactés par ce bug:

TMemo, TEdit, TSwitch, TCalendar, TSpinBox, TNumberBox, TComboEdit, TComboTrackBar, TWebBrowser


Franck