“长时间运行方法完成”是否有设计模式?

我有一个方法需要很长时间才能完成,并且希望定期检查是否完成。这就是我想到的(简化代码,Delphi2007):

type
  IWaitForDone = interface
    function IsDone: boolean;
  end;

function TSomeClass.doSomethingThatTakesLong: IWaitForDone;
begin
  Result := TClassThatDoesIt.Create;
end;

var
  Waiter: IWaitForDone;
begin
   Waiter := SomeClass.doSomethingThatTakesLong;
   while not Waiter.isDone do
     doSomethingElse;
   Waiter := nil;
end;

在上下文中,调用is done可能实际上完成了要完成的工作的一部分,并且在完成时返回true,在还有部分要完成时返回false。或者,它可以检查另一个线程是否完成了它的工作。我不想让打电话的人看到这个。

我想我不是第一个遇到这种问题的人,而且这个解决方案可能已经有了一个名字(设计模式?)但是我找不到它。 那它叫什么?