Changeset 144 for trunk/Components/ScreenTools.pas

Timestamp:

May 11, 2018, 11:57:25 PM (6 years ago)

Author:

chronos

Message:

• Modified: More code refactoring related to players brain selection.

File:

• trunk/Components/ScreenTools.pas (modified) (2 diffs)

trunk/Components/ScreenTools.pas

@@ -51 +51 @@
 function Play(Item: string; Index: integer = -1): boolean;
 procedure PreparePlay(Item: string; Index: integer = -1);
-procedure EmptyMenu(MenuItems: TMenuItem; Keep: integer = 0);
+procedure EmptyMenu(MenuItems: TMenuItem; Keep: Integer = 0);
 function turntoyear(Turn: integer): integer;
 function TurnToString(Turn: integer): string;
@@ -295 +295 @@
 end;
 
-procedure EmptyMenu(MenuItems: TMenuItem; Keep: integer = 0);
-var
-  m: TMenuItem;
-begin
-  while MenuItems.Count > Keep do
-  begin
-    m := MenuItems[MenuItems.Count - 1];
+procedure EmptyMenu(MenuItems: TMenuItem; Keep: Integer = 0);
+var
+  MenuItem: TMenuItem;
+begin
+  while MenuItems.Count > Keep do begin
+    MenuItem := MenuItems[MenuItems.Count - 1];
     MenuItems.Delete(MenuItems.Count - 1);
-    m.Free;
+    MenuItem.Free;
   end;
 end;