eventunit.pas

来自「华海成本核算辅助系统是基于用友U8企业资源管理系统开发的一套半成品成本统计分析软」· PAS 代码 · 共 69 行

unit EventUnit;

interface

type
  THitMessage = procedure (aHitMessage :string ) of object ;

  TAttendanceEvent = class(TObject)
  private
    FHitMessage : THitMessage ;
    FEndMessage : THitMessage ;
    FStatusMessage : THitMessage ;
    FTerminated: Boolean;
  public
    procedure SetHitMessageFunction(aValue :THitMessage);
    procedure SetEndMessageFunction(aValue : THitMessage );
    procedure SetStatusMessageFunction(aValue :THitMessage);
    procedure ProcessHitMessage(aHitMessage : string);
    procedure ProcessEndMessage(aHitMessage : string);
    procedure ProcessStatusMessage(aHitMessage : string);
    property Terminated: Boolean read FTerminated write FTerminated;
  end;
var
  gCalculateEvent : TAttendanceEvent ;

implementation
{ TAttendanceEvent }

procedure TAttendanceEvent.ProcessEndMessage(aHitMessage: string);
begin
  if FTerminated  then
    Exit ;
  if Assigned(FEndMessage) then
    FEndMessage(aHitMessage);
end;

procedure TAttendanceEvent.ProcessHitMessage(aHitMessage: string);
begin
  if FTerminated then
    Exit ;
  if Assigned(FHitMessage) then
    FHitMessage(aHitMessage);
end;

procedure TAttendanceEvent.ProcessStatusMessage(aHitMessage: string);
begin
  if FTerminated then
    Exit ;
  if Assigned(FStatusMessage) then
    FStatusMessage(aHitMessage);
end;

procedure TAttendanceEvent.SetEndMessageFunction(aValue: THitMessage);
begin
  FEndMessage := aValue ;
end;

procedure TAttendanceEvent.SetHitMessageFunction(aValue: THitMessage);
begin
  FHitMessage := aValue ;
end;

procedure TAttendanceEvent.SetStatusMessageFunction(aValue: THitMessage);
begin
  FStatusMessage := aValue ;
end;

end.