equal
deleted
inserted
replaced
84 FinAction: PAction; |
84 FinAction: PAction; |
85 |
85 |
86 function AddAction(Action, Param, TimeDelta: Longword): PAction; |
86 function AddAction(Action, Param, TimeDelta: Longword): PAction; |
87 begin |
87 begin |
88 New(Result); |
88 New(Result); |
89 TryDo(Result <> nil, errmsgDynamicVar, true); |
89 TryDo(Result <> nil, 'AddAction: Result = nil', true); |
90 FillChar(Result^, sizeof(TAction), 0); |
90 FillChar(Result^, sizeof(TAction), 0); |
91 Result.Action:= Action; |
91 Result.Action:= Action; |
92 Result.Param:= Param; |
92 Result.Param:= Param; |
93 if ActionList = nil then |
93 if ActionList = nil then |
94 begin |
94 begin |