Changeset 318 for trunk/Forms/FormMove.pas

Timestamp:

Jun 21, 2024, 3:20:20 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Forms/FormMove.pas (modified) (4 diffs)

trunk/Forms/FormMove.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin, Game,
   StdCtrls, ComCtrls, FormEx;
 
@@ -43 +43 @@
     ShowWinProbability: Boolean;
     AllowChangeOnce: Boolean;
+    Game: TGame;
     procedure UpdateView;
   end;
@@ -50 +51 @@
 
 {$R *.lfm}
-
-uses
-  Core;
 
 { TFormMove }
@@ -73 +71 @@
   Label3.Visible := ShowWinProbability;
   LabelWinProbability.Caption :=
-    IntToStr(Round(Core.Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
+    IntToStr(Round(Game.AttackProbability(AttackCount + SpinEditOnce.Value,
     DefendCount) * 100)) + ' %';
 end;