system/ffmt.OBJ

   1 lyInterval;\r
   2 begin\r
   3   WriteInt(TxtIdentifiers[seikScheduleDailyInterval], (Event.Schedule as IJclDailySchedule).Interval);\r
   4 end;\r
   5 \r
   6 procedure TTxtStore.StoreScheduleWeeklyDays;\r
   7 var\r
   8   WD: TScheduleWeekDays;\r
   9 begin\r
  10   WD := (Event.Schedule as IJclWeeklySchedule).DaysOfWeek;\r
  11   WriteSet(TxtIdentifiers[seikScheduleWeeklyDays], WD, TypeInfo(TScheduleWeekDays));\r
  12 end;\r
  13 \r
  14 procedure TTxtStore.StoreScheduleWeeklyInterval;\r
  15 begin\r
  16   WriteInt(TxtIdentifiers[seikScheduleWeeklyInterval], (Event.Schedule as IJclWeeklySchedule).Interval);\r
  17 end;\r
  18 \r
  19 procedure TTxtStore.StoreScheduleMonthlyDay;\r
  20 begin\r
  21   WriteInt(TxtIdentifiers[seikScheduleMonthlyDay], (Event.Schedule as IJclMonthlySchedule).Day);\r
  22 end;\r
  23 \r
  24 procedure TTxtStore.StoreScheduleMonthlyIndexType;\r
  25 begin\r
  26   WriteEnum(TxtIdentifiers[seikScheduleMonthlyIndexType], Ord((Event.Schedule as IJclMonthlySchedule).IndexKind),\r
  27     TypeInfo(TScheduleIndexKind));\r
  28 end;\r
  29 \r
  30 procedure TTxtStore.StoreScheduleMonthlyIndex;\r
  31 begin\r
  32   WriteInt(TxtIdentifiers[seikScheduleMonthlyIndex], (Event.Schedule as IJclMonthlySchedule).IndexValue);\r
  33 end;\r
  34 \r
  35 procedure TTxtStore.StoreScheduleMonthlyInterval;\r
  36 begin\r
  37   WriteInt(TxtIdentifiers[seikScheduleMonthlyInterval], (Event.Schedule as IJclMonthlySchedule).Interval);\r
  38 end;\r
  39 \r
  40 procedure TTxtStore.StoreScheduleYearlyDay;\r
  41 begin\r
  42   WriteInt(TxtIdentifiers[seikScheduleYearlyDay], (Event.Schedule as IJclYearlySchedule).Day);\r
  43 end;\r
  44 \r
  45 procedure TTxtStore.StoreScheduleYearlyMonth;\r
  46 begin\r
  47   WriteInt(TxtIdentifiers[seikScheduleYearlyMonth], (Event.Schedule as IJclYearlySchedule).Month);\r
  48 end;\r
  49 \r
  50 procedure TTxtStore.StoreScheduleYearlyIndexType;\r
  51 begin\r
  52   WriteEnum(TxtIdentifiers[seikScheduleYearlyIndexType], Ord((Event.Schedule as IJclYearlySchedule).IndexKind),\r
  53     TypeInfo(TScheduleIndexKind));\r
  54 end;\r
  55 \r
  56 procedure TTxtStore.StoreScheduleYearlyIndex;\r
  57 begin\r
  58   WriteInt(TxtIdentifiers[seikScheduleYearlyIndex], (Event.Schedule as IJclYearlySchedule).IndexValue);\r
  59 end;\r
  60 \r
  61 procedure TTxtStore.StoreScheduleYearlyInterval;\r
  62 begin\r
  63   WriteInt(TxtIdentifiers[seikScheduleYearlyInterval], (Event.Schedule as IJclYearlySchedule).Interval);\r
  64 end;\r
  65 \r
  66 procedure TTxtStore.BeginStruct(const StructType: TSchedEvtStructKind);\r
  67 begin\r
  68   PushStruct(StructType);\r
  69   case StructType of\r
  70     seskSchedule:\r
  71       WriteLn(sTXTID_SchedGeneric);\r
  72     seskScheduleRecurInfo:\r
  73       WriteLn(sTXTID_SchedRecur);\r
  74     seskScheduleEndInfo:\r
  75       WriteLn(sTXTID_SchedEnd);\r
  76     seskScheduleDayFreq:\r
  77       WriteLn(sTXTID_SchedFreq);\r
  78     seskScheduleDaily:\r
  79       WriteLn(sTXTID_SchedDaily);\r
  80     seskScheduleWeekly:\r
  81       WriteLn(sTXTID_SchedWeekly);\r
  82     seskScheduleMonthly:\r
  83       WriteLn(sTXTID_SchedMonthly);\r
  84     seskScheduleYearly:\r
  85       WriteLn(sTXTID_SchedYearly);\r
  86   else\r
  87     raise EJVCLException.CreateRes(@RsEUnexpectedStructure);\r
  88   end;\r
  89 end;\r
  90 \r
  91 procedure TTxtStore.EndStruct;\r
  92 begin\r
  93   PopStruct;\r
  94 end;\r
  95 \r
  96 procedure TTxtStore.CheckBeginStruct(const StructType: TSchedEvtStructKind);\r
  97 var\r
  98   S: string;\r
  99 begin\r
 100   PushStruct(StructType);\r
 101   S := ReadNextLine;\r
 102   case StructType of\r
 103     seskSchedule:\r
 104       if not AnsiSameText(S, sTXTID_SchedGeneric) then\r
 105         raise EJVCLException.CreateRes(@RsEIncorrectStructure);\r
 106     seskScheduleRecurInfo:\r
 107       if not AnsiSameText(S, sTXTID_SchedRecur) then\r
 108