You can not select more than 25 topics Topics must start with a chinese character,a letter or number, can include dashes ('-') and can be up to 35 characters long.

uTOverCostActionArg.pas 1.9 kB

2 years ago
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. unit uTOverCostActionArg;
  2. interface
  3. type
  4. TOverCostActionArg = class
  5. private
  6. FActionType: Integer;
  7. FTimeTick: Int64;
  8. FWorkerId: Word;
  9. FOverCostCountInOneTerm: Integer;
  10. FGenCountInOneTerm: Integer;
  11. FTermIndex: Integer;
  12. public
  13. /// <summary>
  14. /// ¼
  15. /// 1-ʼ2-8-Ư
  16. /// </summary>
  17. property ActionType: Integer read FActionType write FActionType default 0;
  18. /// <summary>
  19. /// ʱ
  20. /// </summary>
  21. property TimeTick: Int64 read FTimeTick write FTimeTick;
  22. /// <summary>
  23. ///
  24. /// </summary>
  25. property WorkerId: Word read FWorkerId write FWorkerId;
  26. /// <summary>
  27. /// ƯƼ
  28. /// </summary>
  29. property OverCostCountInOneTerm: Integer read FOverCostCountInOneTerm write FOverCostCountInOneTerm default 0;
  30. /// <summary>
  31. /// ƯڼID
  32. /// </summary>
  33. property GenCountInOneTerm: Integer read FGenCountInOneTerm write FGenCountInOneTerm default 0;
  34. /// <summary>
  35. /// Ư
  36. /// </summary>
  37. property TermIndex: Integer read FTermIndex write FTermIndex default 0;
  38. constructor Create(const WorkerId: Word; const TimeTick: Int64; const ActionType: Integer = 0;
  39. const OverCostCountInOneTerm: Integer = 0; const GenCountWhenOverCost: Integer = 0;
  40. const Index: Integer = 0); overload;
  41. end;
  42. implementation
  43. { TOverCostActionArg }
  44. constructor TOverCostActionArg.Create(const WorkerId: Word; const TimeTick: Int64; const ActionType: Integer;
  45. const OverCostCountInOneTerm: Integer; const GenCountWhenOverCost: Integer; const Index: Integer);
  46. begin
  47. FWorkerId := WorkerId;
  48. FTimeTick := TimeTick;
  49. FActionType := ActionType;
  50. FOverCostCountInOneTerm := OverCostCountInOneTerm;
  51. FGenCountInOneTerm := GenCountWhenOverCost;
  52. FTermIndex := Index;
  53. end;
  54. end.