0
I have the sources of an old chess component in Delphi. I migrated it to Berlin. After compiling and installing everything ok. However, one of the components presents problems when I insert it into the form, generating an error.
This component, derived from the Tpanel class, serves to visualize the writing of the matches. The error:
"Acces Violation at address 24365BF2 in module "Chessboard.bpl". Write of address 0000005C".
Details:
[24365BF2]{Chessboard.bpl} Notation.TNotation.$bctr$qqrp25System.Classes.Tcomponent (Line 1020, "Notation.pas" + 61) + $15 [500601B8]{rtl240.bpl } System.TMonitor.Destroy (Line 18102, "System.pas" + 0) + $0 [5005F839]{rtl240.bpl } System.TObject.Cleanupinstance (Line 16698, "System.pas" + 37) + $0 [5005A1C9]{rtl240.bpl } System. @Reallocmem (Line 4736, "System.pas" + 21) + $0 [50065346]{rtl240.bpl } System.Dynarraysetlength (Line 34277, "System.pas" + 104) + $13 [5005A1FB]{rtl240.bpl } System. @Reallocmem (Line 4806, "System.pas" + 91) + $0 [50065346]{rtl240.bpl } System.Dynarraysetlength (Line 34277, "System.pas" + 104) + $13 [50AA6857]{vcl240.bpl } Vcl.Controls.Twincontrol.Aligncontrol (Line 9014, "Vcl.Controls.pas" + 1) + $3 [50065346]{rtl240.bpl } System.Dynarraysetlength (Line 34277, "System.pas" + 104) + $13 [50AA1154]{vcl240.bpl } Vcl.Controls.Tcontrol.Requestalign (Line 5555, "Vcl.Controls.pas" + 1) + $1 [50AA995F]{vcl240.bpl } Vcl.Controls.TWinControl.RequestAlign (Line 10825, "Vcl.Controls.pas" + 11) + $3 [50AA8675]{vcl240.bpl } Vcl.Controls.Twincontrol.Wndproc (Line 10143, "Vcl.Controls.pas" + 158) + $6 [5005FBE2]{rtl240.bpl } System. @Calldynainst (Line 17133, "System.pas" + 4) + $0 [50155C39]{rtl240.bpl } System.Classes.Tinterfacedpersistent.Afterconstruction (Line 5555, "System.Classes.pas" + 2) + $6 [5005FF2D]{rtl240.bpl } System. @Afterconstruction (Line 17839, "System.pas" + 2) + $5 [50159051]{rtl240.bpl } System.Classes.Tstringlist.Create (Line 7244, "System.Classes.pas" + 2) + $6 [24365BE4]{Chessboard.bpl} Notation.TNotation.$bctr$qqrp25System.Classes.Tcomponent (Line 1020, "Notation.pas" + 61) + $7 [21F9019B]{delphicoreide240.bpl} Comppalmgr.TComponentPalettePageItemDelegate.Createcomponent (Line 2755, "Comppalmgr.pas" + 2) + $7 [2129C683]{designide240.bpl} Componentdesigner.TComponentRoot.Docreatecomponent (Line 2491, "Componentdesigner.pas" + 28) + $17 [212A2950]{designide240.bpl} Componentdesigner.TComponentRoot.Createcurrentcomponent (Line 4792, "Componentdesigner.pas" + 2) + $34 [212BDD82]{designide240.bpl} Surface.TDesignSurface.Createitem (Line 203, "Surface.pas" + 1) + $11 [2126294A]{designide240.bpl} Designer.TDesigner.Dodragcreate (Line 802, "Designer.pas" + 1) + $F [2126324C]{designide240.bpl} Designer.TDesigner.Dragend (Line 988, "Designer.pas" + 19) + $3 [21265864]{designide240.bpl} Designer.TDesigner.Mouseup (Line 1776, "Designer.pas" + 1) + $2 [525BFB36]{vcldesigner240.bpl} Vclsurface.Mouseevent (Line 3257, "Vclsurface.pas" + 45) + $11 [500604A7]{rtl240.bpl } System.TMonitor.Exit (Line 18292, "System.pas" + 2) + $7 [525C072B]{vcldesigner240.bpl} Vclsurface.TVclDesignSurface.Isdesignmsg (Line 3518, "Vclsurface.pas" + 48) + $6 [5005FA96]{rtl240.bpl } System. @Isclass (Line 16965, "System.pas" + 1) + $8 [50AA38AF]{vcl240.bpl } Vcl.Controls.Tcontrol.Wndproc (Line 7226, "Vcl.Controls.pas" + 4) + $21 [0D9C514C]{Trackingsystem240.bpl} Trackingsystemhelp.Cbthookproc (Line 211, "Trackingsystemhelp.pas" + 27) + $F [50A7E83]{vcl240.bpl } Vcl.Controls.Twincontrol.Iscontrolmousemsg (Line 9906, "Vcl.Controls.pas" + 1) + $9 [50AA8675]{vcl240.bpl } Vcl.Controls.Twincontrol.Wndproc (Line 10143, "Vcl.Controls.pas" + 158) + $6 [50BE5565]{vcl240.bpl } Vcl.Forms.Tcustomform.Wndproc (Line 4523, "Vcl.Forms.pas" + 209) + $5 [525C9A03]{vcldesigner240.bpl} Vclformcontainer.TControlSizer.Controldproc (Line 344, "Vclformcontainer.pas" + 33) + $C [50AA7C94]{vcl240.bpl } Vcl.Controls.Twincontrol.Mainwndproc (Line 9850, "Vcl.Controls.pas" + 3) + $6 [50170D28]{rtl240.bpl } System.Classes.Stdwndproc (Line 17179, "System.Classes.pas" + 8) + $0 [50BEEC8F]{vcl240.bpl } Vcl.Forms.Tapplication.Processmessage (Line 10534, "Vcl.Forms.pas" + 23) + $1 [50BEECD2]{vcl240.bpl } Vcl.Forms.Tapplication.Handlemessage (Line 10564, "Vcl.Forms.pas" + 1) + $4 [50BEF005]{vcl240.bpl } Vcl.Forms.Tapplication.Run (Line 10702, "Vcl.Forms.pas" + 26) + $3
Can anyone help? It should be simple thing. Anything put the source of that component.
Post..........
– Tiago Rodrigues
João, a first test you can do, is to create a project without dependency on third-party Packages, add the sources of the chess project to your project and create the component on a screen at runtime, if the exception happens, you could debug the project. If this way works, you need to search the component code for the specific things of design time.
– Confundir