在执行程序的时候总是提示: ---------------------------Debugger Exception Notification---------------------------Project PrintErp.exe raised exception class EVariantTypeCastError with message '无法将变量从类型 (String) 转换为类型 (Double).'. Process stopped. Use Step or Run to
在研究TCustomControl的显示过程中,怎么样都找不到刷新FWinControls并重新显示的代码: procedure TWinControl.PaintHandler(var Message: TWMPaint); var I, Clip, SaveIndex: Integer; DC: HDC; PS: TPaintStruct; begin DC := Message.DC; then DC := BeginPaint(Handle, PS); try if FControls