Saving/restoring of point cloud has been implemented.

#3

ExamplesMain.pas

@@ -21,8 +21,8 @@     TForm1 = class(TForm)
         DownhillSimplexAlgorithm1: TDownhillSimplexAlgorithm;
         procedure BitBtn1Click(Sender: TObject);
     private
-        { Private declarations }
         { Minimum bounding box problem. }
+        SavedPointCloud: TComponentList;
         { Set of random points. }
         PointCloud: TComponentList;
         { Angles describing rotation of coordinate system. }
@@ -31,6 +31,10 @@     TForm1 = class(TForm)
         BoxPosition:  TDoubleVector3;
         InitialVolume: Double;
 
+        { TODO: saving/restoring make more efficient. }
+        procedure CopyPointCloud(Src: TComponentList; var Dest: TComponentList);
+        procedure SavePointCloud;
+        procedure RestorePointCloud;
         procedure GenerateRandomPointCloud;
         procedure InitializeVariableParameters;
         procedure TransformPointCloudCoordinates;
@@ -208,4 +212,31 @@ function TForm1.ComputeBoxVolume: Double;
     Result := A * B * C;
 end;
 
+procedure TForm1.CopyPointCloud(Src: TComponentList; var Dest: TComponentList);
+var i: LongInt;
+    Point: T3DVector;
+begin
+    if Dest <> nil then
+        Dest.Destroy;
+
+    Dest := TComponentList.Create(True);
+
+    for i := 0 to Src.Count - 1 do
+    begin
+       Point := T3DVector.Create(nil);
+       Point.Vector := T3DVector(Src[i]).Vector;
+       Dest.Add(Point);
+    end;
+end;
+
+procedure TForm1.SavePointCloud;
+begin
+    CopyPointCloud(PointCloud, SavedPointCloud);
+end;
+
+procedure TForm1.RestorePointCloud;
+begin
+    CopyPointCloud(SavedPointCloud, PointCloud);
+end;
+
 end.