Update Z.Expression.Sequence.pas

PassByYou888 · Jul 7, 2024 · c74e631 · c74e631
1 parent 538e9ba
commit c74e631
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/Source/Z.Expression.Sequence.pas b/Source/Z.Expression.Sequence.pas
@@ -91,9 +91,11 @@   TExpression_Sequence_RunTime = class(TOpCustomRunTime)
     procedure Do_End_And_Result(Result_: Variant);
     function Running: Boolean;
     function Is_Wait_End: Boolean;
-    function Code_Result: Variant;
-    property Enb_Result: Variant read Code_Result;
-    property Result_: Variant read Code_Result;
+    function Get_Code_Result: Variant;
+    procedure Set_Code_Result(Value: Variant);
+    property Code_Result: Variant read Get_Code_Result write Set_Code_Result;
+    property Enb_Result: Variant read Get_Code_Result write Set_Code_Result;
+    property Result_: Variant read Get_Code_Result write Set_Code_Result;
     procedure Do_Error;
     procedure Progress; virtual;
   end;
@@ -444,14 +446,20 @@ function TExpression_Sequence_RunTime.Is_Wait_End: Boolean;
       Result := False;
 end;
 
-function TExpression_Sequence_RunTime.Code_Result: Variant;
+function TExpression_Sequence_RunTime.Get_Code_Result: Variant;
 begin
   if NonLinear_Tool <> nil then
       Result := NonLinear_Tool.Result_
   else
       Result := NULL;
 end;
 
+procedure TExpression_Sequence_RunTime.Set_Code_Result(Value: Variant);
+begin
+  if NonLinear_Tool <> nil then
+      NonLinear_Tool.Result_ := Value;
+end;
+
 procedure TExpression_Sequence_RunTime.Do_Error;
 begin
   NonLinear_Tool.Do_Error;