Urgent – Bug Report FindKey

[alexromanotiscaliit]

I have upgrade versione from 7.85 to 7.95 Pro and my customers report me

with Delphi 11 Pro

this error:

"There must be at least one field."

this is an eurekalog report:

[01D68851] kbmMemTable.TkbmCustomMemTable.FindKey (Line 12002, "kbmMemTable.pas")
[04F2EE65] Cost_var.SincronizzaMagazzino (Line 4797, "Cost_var.pas")
[04F2EE67] Cost_var.SincronizzaMagazzino (Line 4797, "Cost_var.pas")
[04F2EFDE] Cost_var.SincronizzaMagazzino (Line 4825, "Cost_var.pas")
[04EF6C22] GiacenzaArticolo.TFGiacenzaArticolo.ApplicaqueryGiacenze (Line 4310, "GiacenzaArticolo.pas")
[04EF6C3D] GiacenzaArticolo.TFGiacenzaArticolo.ApplicaqueryGiacenze (Line 4311, "GiacenzaArticolo.pas")
[04EE5A58] GiacenzaArticolo.TFGiacenzaArticolo.FormShow (Line 1034, "GiacenzaArticolo.pas")
[04EE5B4C] GiacenzaArticolo.TFGiacenzaArticolo.FormShow (Line 1051, "GiacenzaArticolo.pas")
[02B4BFFA] ToolPanels.TAdvToolPanelTab.TabFormShow (Line 4759, "ToolPanels.pas")
[00785D65] Vcl.Forms.TCustomForm.DoShow
[0040B948] System._CallDynaInst
[0078AD65] Vcl.Forms.TCustomForm.CMShowingChanged
[0078AD86] Vcl.Forms.TCustomForm.CMShowingChanged
[0078AD72] Vcl.Forms.TCustomForm.CMShowingChanged
[0078B3EA] Vcl.Forms.TCustomForm.CMShowingChanged
[0078B409] Vcl.Forms.TCustomForm.CMShowingChanged
[772A39BB] ntdll (possible KiUserCallbackDispatcher+75)
[0040B918] System.GetDynaMethod
[0040B9CB] System.TObject.Dispatch
[0067EEE2] Vcl.Controls.TControl.WndProc
[00683100] Vcl.Controls.TWinControl.GetIsDrawingLocked
[0068620F] Vcl.Controls.TWinControl.CMShowingChanged
[0067EEE2] Vcl.Controls.TControl.WndProc
[7726A8A0] ntdll.RtlDeactivateActivationContextUnsafeFast
[74A36A81] USER32 (possible CallWindowProcW+3537)
[01C6A307] AdvGrid.MsgHookProc (Line 6259, "AdvGrid.pas")
[01C6A307] AdvGrid.MsgHookProc (Line 6259, "AdvGrid.pas")
[74A36430] USER32 (possible CallWindowProcW+1920)
[74A36375] USER32 (possible CallWindowProcW+1733)
[74A435E0] USER32 (possible GetThreadDpiAwarenessContext+144)
[74A922E3] USER32 (possible WaitForInputIdle+659)
[74A439A5] USER32 (possible RemovePropW+245)
[772A159A] ntdll.ZwCallbackReturn
[772A1590] ntdll.ZwCallbackReturn
[74A439B4] USER32 (possible RemovePropW+260)
[0067EC24] Vcl.Controls.TControl.WndProc
[00683FD5] Vcl.Controls.TWinControl.WndProc
[0067EC24] Vcl.Controls.TControl.WndProc
[00683FD5] Vcl.Controls.TWinControl.WndProc
[0067EC24] Vcl.Controls.TControl.WndProc
[00683FD5] Vcl.Controls.TWinControl.WndProc
[0067EC24] Vcl.Controls.TControl.WndProc
[00683FD5] Vcl.Controls.TWinControl.WndProc
[00683970] Vcl.Controls.TWinControl.WndProc
[0078695C] Vcl.Forms.TCustomForm.WndProc
[00786977] Vcl.Forms.TCustomForm.WndProc
[011F93D3] cxControls.TcxWindowProcLinkedObject.DefaultProc
[02B492AE] ToolPanels.TAdvToolPanelTab.SubclassProc (Line 3660, "ToolPanels.pas")
[0067EB18] Vcl.Controls.TControl.Perform
[0067EAF4] Vcl.Controls.TControl.Perform
[006832F1] Vcl.Controls.TWinControl.UpdateShowing
[0068330E] Vcl.Controls.TWinControl.UpdateShowing
[0068333A] Vcl.Controls.TWinControl.UpdateShowing
[0068331F] Vcl.Controls.TWinControl.UpdateShowing
[006831E4] Vcl.Controls.TWinControl.UpdateShowing
[00683406] Vcl.Controls.TWinControl.UpdateControlState
[00683348] Vcl.Controls.TWinControl.UpdateControlState
[006861BE] Vcl.Controls.TWinControl.CMVisibleChanged
[0067EEE2] Vcl.Controls.TControl.WndProc
[7369EB85] uxtheme.GetThemeAppProperties
[7369EB50] uxtheme.GetThemeAppProperties
[7369EAE6] uxtheme.GetThemeAppProperties
[74A3BFC0] USER32.GetDpiForSystem
[7369EAED] uxtheme.GetThemeAppProperties
[74A36430] USER32 (possible CallWindowProcW+1920)
[74A36375] USER32 (possible CallWindowProcW+1733)
[74A435E0] USER32 (possible GetThreadDpiAwarenessContext+144)
[74A922E3] USER32 (possible WaitForInputIdle+659)
[74A439A5] USER32 (possible RemovePropW+245)
[772A159A] ntdll.ZwCallbackReturn
[772A1590] ntdll.ZwCallbackReturn
[74A439B4] USER32 (possible RemovePropW+260)
[74A42CDB] USER32 (possible SystemParametersInfoW+171)
[74A42D35] USER32 (possible SystemParametersInfoW+261)
[74A42CE9] USER32 (possible SystemParametersInfoW+185)
[0052308C] System.Classes.TList.Get
[0078D50B] Vcl.Forms.TScreen.GetCustomForms
[0078D500] Vcl.Forms.TScreen.GetCustomForms
[0078E202] Vcl.Forms.AlignWork
[0067EC24] Vcl.Controls.TControl.WndProc
[00683FD5] Vcl.Controls.TWinControl.WndProc
[0078E238] Vcl.Forms.TScreen.AlignForms
[0078E312] Vcl.Forms.TScreen.AlignForm
[0078DE1C] Vcl.Forms.TScreen.EnableAlign
[0078E331] Vcl.Forms.TScreen.AlignForm
[0078E322] Vcl.Forms.TScreen.AlignForm
[0078E33E] Vcl.Forms.TScreen.AlignForm
[00683970] Vcl.Controls.TWinControl.WndProc
[0078695C] Vcl.Forms.TCustomForm.WndProc
[00786977] Vcl.Forms.TCustomForm.WndProc
[02B492AE] ToolPanels.TAdvToolPanelTab.SubclassProc (Line 3660, "ToolPanels.pas")
[00788191] Vcl.Forms.TCustomForm.SetWindowToMonitor
[0067EB18] Vcl.Controls.TControl.Perform
[0067EAF4] Vcl.Controls.TControl.Perform
[0067D546] Vcl.Controls.TControl.SetVisible
[0067D520] Vcl.Controls.TControl.SetVisible
[00786055] Vcl.Forms.TCustomForm.SetVisible
[00786018] Vcl.Forms.TCustomForm.SetVisible
[0078BA2F] Vcl.Forms.TCustomForm.Show
[0078BA28] Vcl.Forms.TCustomForm.Show
[0078BC9B] Vcl.Forms.TCustomForm.ShowModal
[0078BEF0] Vcl.Forms.TCustomForm.ShowModal
[0078BF14] Vcl.Forms.TCustomForm.ShowModal
[0078BF33] Vcl.Forms.TCustomForm.ShowModal
[04F1419B] FunzioniGlobali.VisualizzaElencoGiacenzaArticoli (Line 1419, "FunzioniGlobali.pas")
[04F141DD] FunzioniGlobali.VisualizzaElencoGiacenzaArticoli (Line 1423, "FunzioniGlobali.pas")
[04F141F4] FunzioniGlobali.VisualizzaElencoGiacenzaArticoli (Line 1425, "FunzioniGlobali.pas")
[04E5E34A] Main.TFMain.SelezionaDaClick (Line 6123, "Main.pas")
[04E5E9E4] Main.TFMain.SelezionaDaClick (Line 6333, "Main.pas")
[04E4BE29] Main.TFMain.DockMainItemClick (Line 1265, "Main.pas")
[028F4EB2] AdvSmoothDock.TAdvSmoothDock.DoItemClick (Line 1705, "AdvSmoothDock.pas")
[028FA58B] AdvSmoothDock.TAdvSmoothDock.DoMouseUp (Line 3294, "AdvSmoothDock.pas")
[029010F5] AdvSmoothDock.TAdvSmoothDockForm.MouseUp (Line 6303, "AdvSmoothDock.pas")
[0040B948] System._CallDynaInst
[0067F86C] Vcl.Controls.TControl.DoMouseUp
[0067F838] Vcl.Controls.TControl.DoMouseUp
[0067F8FA] Vcl.Controls.TControl.WMLButtonUp
[0067EEE2] Vcl.Controls.TControl.WndProc
[772A168A] ntdll.NtFindAtom
[772A1680] ntdll.NtFindAtom
[7511C8CC] KERNEL32 (possible FindAtomW+188)
[7511C978] KERNEL32 (possible FindAtomW+360)
[7511C8DD] KERNEL32 (possible FindAtomW+205)
[76A82C0A] win32u.NtUserGetProp
[76A82C00] win32u.NtUserGetProp
[74A40553] USER32.GetPropW
[74A434B0] USER32.CallNextHookEx
[00F253BC] ppSynUEdit.GetMsgProc
[74A436A9] USER32 (possible GetThreadDpiAwarenessContext+345)
[772A3690] ntdll (possible RtlRetrieveNtUserPfn+256)
[7725C934] ntdll.RtlRestoreLastWin32Error
[74A430DF] USER32 (possible IsRectEmpty+431)
[74A4A975] USER32 (possible SetWindowsHookExAW+3589)
[74A430EE] USER32 (possible IsRectEmpty+446)
[76A82B2A] win32u.NtUserGetThreadState
[76A82B20] win32u.NtUserGetThreadState
[74A43C50] USER32.GetCapture
[74A43C40] USER32.GetCapture
[00683767] Vcl.Controls.TWinControl.IsControlMouseMsg
[772A159A] ntdll.ZwCallbackReturn
[772A1590] ntdll.ZwCallbackReturn
[74A43098] USER32 (possible IsRectEmpty+360)
[0067EC24] Vcl.Controls.TControl.WndProc
[00683FD5] Vcl.Controls.TWinControl.WndProc
[772A39BB] ntdll (possible KiUserCallbackDispatcher+75)
[00683970] Vcl.Controls.TWinControl.WndProc
[0078695C] Vcl.Forms.TCustomForm.WndProc
[00786977] Vcl.Forms.TCustomForm.WndProc
[76A82D00] win32u.NtUserCallNextHookEx
[74A4353F] USER32 (possible CallNextHookEx+143)
[0078624C] Vcl.Forms.TCustomForm.WndProc
[029013AA] AdvSmoothDock.TAdvSmoothDockForm.WndProc (Line 6435, "AdvSmoothDock.pas")
[00683550] Vcl.Controls.TWinControl.MainWndProc
[0068356B] Vcl.Controls.TWinControl.MainWndProc
[00683592] Vcl.Controls.TWinControl.MainWndProc
[0068357C] Vcl.Controls.TWinControl.MainWndProc
[0053E9DC] System.Classes.StdWndProc
[74A45CB9] USER32 (possible AddClipboardFormatListener+73)
[74A45C90] USER32 (possible AddClipboardFormatListener+32)
[74A367D7] USER32 (possible CallWindowProcW+2855)
[772A159A] ntdll.ZwCallbackReturn
[772A1590] ntdll.ZwCallbackReturn
[74A43098] USER32 (possible IsRectEmpty+360)
[772734D0] ntdll.RtlActivateActivationContextUnsafeFast
[74A36625] USER32 (possible CallWindowProcW+2421)
[74A36430] USER32 (possible CallWindowProcW+1920)
[74A35916] USER32 (possible DispatchMessageW+566)
[74A35700] USER32 (possible DispatchMessageW+32)
[74A356EB] USER32.DispatchMessageW
[74A356E0] USER32.DispatchMessageW
[00790A47] Vcl.Forms.TApplication.ProcessMessage
[00790954] Vcl.Forms.TApplication.ProcessMessage
[00790A8A] Vcl.Forms.TApplication.HandleMessage
[00790A80] Vcl.Forms.TApplication.HandleMessage
[0078BD8A] Vcl.Forms.TCustomForm.ShowModal
[0078BE19] Vcl.Forms.TCustomForm.ShowModal
[0078BEF0] Vcl.Forms.TCustomForm.ShowModal
[0078BF14] Vcl.Forms.TCustomForm.ShowModal
[0078BF33] Vcl.Forms.TCustomForm.ShowModal
[008CF4E4] Data.DB.TBooleanField.GetValue
[008CF3F8] Data.DB.TBooleanField.GetAsBoolean
[045CD6AE] NewMain.TFNewMain.Timer1Timer (Line 1881, "NewMain.pas")
[045CD758] NewMain.TFNewMain.Timer1Timer (Line 1887, "NewMain.pas")
[00727CC3] Vcl.ExtCtrls.TTimer.Create
[0040B948] System._CallDynaInst
[00727BA3] Vcl.ExtCtrls.TTimer.WndProc
[00727BE5] Vcl.ExtCtrls.TTimer.WndProc
[00727BB0] Vcl.ExtCtrls.TTimer.WndProc
[0053E9DC] System.Classes.StdWndProc
[74A45CB9] USER32 (possible AddClipboardFormatListener+73)
[74A45C90] USER32 (possible AddClipboardFormatListener+32)
[74A367D7] USER32 (possible CallWindowProcW+2855)
[772A159A] ntdll.ZwCallbackReturn
[772A1590] ntdll.ZwCallbackReturn
[74A43098] USER32 (possible IsRectEmpty+360)
[772734D0] ntdll.RtlActivateActivationContextUnsafeFast
[74A36625] USER32 (possible CallWindowProcW+2421)
[74A36430] USER32 (possible CallWindowProcW+1920)
[74A35916] USER32 (possible DispatchMessageW+566)
[74A35700] USER32 (possible DispatchMessageW+32)
[74A356EB] USER32.DispatchMessageW
[74A356E0] USER32.DispatchMessageW
[00790A47] Vcl.Forms.TApplication.ProcessMessage
[00790954] Vcl.Forms.TApplication.ProcessMessage
[00790A8A] Vcl.Forms.TApplication.HandleMessage
[00790A80] Vcl.Forms.TApplication.HandleMessage
[00790DC9] Vcl.Forms.TApplication.Run
[00790DE8] Vcl.Forms.TApplication.Run
[00790DD6] Vcl.Forms.TApplication.Run
[00790E11] Vcl.Forms.TApplication.Run
[0502A498] ErgoSoft11.initialization (Line 379, "ErgoSoft11.dpr")
[0502A49B] ErgoSoft11.initialization (Line 379, "ErgoSoft11.dpr")
[0502A4B8] ErgoSoft11.initialization (Line 381, "ErgoSoft11.dpr")
[75120417] KERNEL32.BaseThreadInitThunk

[kimbomadsen]

Hi,

The reason is that IndexFieldNames is empty before the FindKey call. It will become that if you switch from another index back to the row order index for example.
There were a bug which were fixed in 7.93 which probably could be the reason you see this, as previous versions incorrectly did not reset it to an empty string when switching to the roworder index.

/Kim

[Author]

Posts