From: Olivier S. <ob...@us...> - 2005-06-22 09:23:49
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12851/dev/JVCL3/run Modified Files: JvTFDays.pas Log Message: No more AV when ScheduleManager is nil and typing a key in the grid Index: JvTFDays.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFDays.pas,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 *** JvTFDays.pas 17 Feb 2005 10:20:54 -0000 1.45 --- JvTFDays.pas 22 Jun 2005 09:23:39 -0000 1.46 *************** *** 8715,8719 **** ApptEndDate, ApptEndTime, Confirm); ! if Confirm then begin Appt := ScheduleManager.dbNewAppt(ID); --- 8715,8719 ---- ApptEndDate, ApptEndTime, Confirm); ! if Confirm and Assigned(ScheduleManager) then begin Appt := ScheduleManager.dbNewAppt(ID); |