|
@@ -399,7 +399,6 @@ type
|
|
|
fCondVar : TSimpleEvent;
|
|
fCondVar : TSimpleEvent;
|
|
|
fTaskList : TScheduledTaskList;
|
|
fTaskList : TScheduledTaskList;
|
|
|
fRemoveTaskAfterExpiration : Boolean;
|
|
fRemoveTaskAfterExpiration : Boolean;
|
|
|
- procedure ExpireTask;
|
|
|
|
|
public
|
|
public
|
|
|
constructor Create(aTaskList : TScheduledTaskList);
|
|
constructor Create(aTaskList : TScheduledTaskList);
|
|
|
destructor Destroy; override;
|
|
destructor Destroy; override;
|
|
@@ -1588,11 +1587,6 @@ begin
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-procedure TScheduler.ExpireTask;
|
|
|
|
|
-begin
|
|
|
|
|
-
|
|
|
|
|
-end;
|
|
|
|
|
-
|
|
|
|
|
function TScheduler.Add(aTask: TScheduledTask): Integer;
|
|
function TScheduler.Add(aTask: TScheduledTask): Integer;
|
|
|
begin
|
|
begin
|
|
|
Result := fTaskList.Add(aTask);
|
|
Result := fTaskList.Add(aTask);
|
Unknown