Documentation corrected, module renamed according to documentation, D…

…elphi build restored. #17
dvmorozov · Sep 2, 2020 · 8c210aa · 8c210aa
1 parent 11f4a82
commit 8c210aa
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 8 deletions.
diff --git a/examples/TBoundingBoxServerForm/bounding_box_server_demo.dpr b/examples/TBoundingBoxServerForm/bounding_box_server_demo.dpr
@@ -3,7 +3,7 @@ program bounding_box_server_demo;
 uses
   Vcl.Forms,
   bounding_box_form in 'bounding_box_form.pas' {Form1},
-  downhill_simplex_handler in 'downhill_simplex_handler.pas';
+  bounding_box_server in 'bounding_box_server.pas';
 
 {$R *.res}
 

diff --git a/examples/TBoundingBoxServerForm/bounding_box_server_demo.dproj b/examples/TBoundingBoxServerForm/bounding_box_server_demo.dproj
@@ -106,7 +106,7 @@
         <DCCReference Include="bounding_box_form.pas">
             <Form>Form1</Form>
         </DCCReference>
-        <DCCReference Include="downhill_simplex_handler.pas"/>
+        <DCCReference Include="bounding_box_server.pas"/>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

diff --git a/examples/optimizing_app.pas b/examples/optimizing_app.pas
@@ -4,12 +4,14 @@ interface
 
 uses
 {$IF NOT DEFINED(FPC)}
-    System.StrUtils,
+    Winapi.Windows, Winapi.Messages,
+    System.SysUtils, System.Variants, System.Classes,
+    Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+    Vcl.StdCtrls, Vcl.Buttons, System.StrUtils, System.Types, System.Contnrs,
 {$ELSE}
-    StrUtils,
+    StrUtils, Classes, Contnrs, Forms,
 {$ENDIF}
-    Classes, SysUtils, Contnrs, Forms, RunningThread, SimpMath, Math3d,
-    bounding_box_server;
+    RunningThread, SimpMath, Math3d, bounding_box_server;
 
 type
     { Contains all application objects. }
@@ -294,7 +296,7 @@ procedure TOptimizingApp.WaitForRunnerFinishing(Runners: TComponentList);
                     GetAsyncKeyState(27);
                     { Stops calculation of other threads. }
                     for j := 0 to FHandlers.Count - 1 do
-                        TDownHillSimplexHandler(FHandlers[j]).Stop;
+                        TBoundingBoxServer(FHandlers[j]).Stop;
                 end;
             end;
             if WaitResult = WAIT_FAILED then

diff --git a/package/DownhillSimplexAlgorithm.pas b/package/DownhillSimplexAlgorithm.pas
@@ -11,6 +11,9 @@
 interface
 
 uses
+{$IF NOT DEFINED(FPC)}
+    System.Types,
+{$ENDIF}
     Classes, Contnrs, Decisions, Algorithm, Tools, SysUtils;
 
 type
@@ -104,7 +107,7 @@     TDownhillSimplexAlgorithm = class(TAlgorithm)
         constructor Create(AOwner: TComponent;
             AFinalTolerance: Double;
             ARestartDisabled: Boolean;
-            AExitDerivative: Double); override;
+            AExitDerivative: Double); overload;
         destructor Destroy; override;
         //  The total number of optimization cycles.
         property CycleCount: Integer read FCycleCount;