Chart

Src/Myc.Core.Futures.pas

@@ -18,9 +18,13 @@ type
     end;
 
     TMycNullFuture<T> = class(TMycFuture<T>)
+    private
+        FValue: T;
     protected
         function GetValue: T; override;
         function GetDone: TState; override;
+    public
+        constructor Create(const AValue: T);
     end;
 
     TMycGateFuncFuture<T> = class(TMycFuture<T>)
@@ -56,6 +60,12 @@ begin
     Assert(GetDone.IsSet, 'Trying to destroy an unfinished future');
 end;
 
+constructor TMycNullFuture<T>.Create(const AValue: T);
+begin
+    inherited Create;
+    FValue := AValue;
+end;
+
 { TMycNullFuture<T> }
 
 function TMycNullFuture<T>.GetDone: TState;
@@ -65,7 +75,7 @@ end;
 
 function TMycNullFuture<T>.GetValue: T;
 begin
-    Result := Default(T);
+    Result := FValue;
 end;
 
 { TMycGateFuncFuture<T> }