From be2b7e874ce351adaabe411e081fc67d79f80ed1 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Thu, 17 Aug 2023 10:39:28 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20Shuffle?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 VisualPlugins/TraningControlPlugin/LoginForm.cs           | 2 +-
 .../TraningControlPlugin/TeacherControlPlugin.cs          | 8 ++++----
 bin/Lib/PABCSystem.pas                                    | 5 +++--
 3 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/VisualPlugins/TraningControlPlugin/LoginForm.cs b/VisualPlugins/TraningControlPlugin/LoginForm.cs
index d0872f3b5..e2f5e10f4 100644
--- a/VisualPlugins/TraningControlPlugin/LoginForm.cs
+++ b/VisualPlugins/TraningControlPlugin/LoginForm.cs
@@ -193,7 +193,7 @@ namespace DBAccessPluginNamespace
             }
             
             // На мехмате проверяем lightPT
-            var isLightPT = Plugin.IsLightPTInWorkingDirectiry();
+            var isLightPT = Plugin.IsLightPTInWorkingDirectory();
             // Первый вариант - в родительский или текущий
             var authCreated = false;
 
diff --git a/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs b/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
index f85bcf57c..c44ee6213 100644
--- a/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
+++ b/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
@@ -46,7 +46,7 @@ namespace VisualPascalABCPlugins
             this.Workbench = Workbench;
             VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
 
-            if (IsLightPTInWorkingDirectiry())
+            if (IsLightPTInWorkingDirectory())
             {
                 IsMechmath = System.Environment.MachineName.ToLower().StartsWith("mil8a-");
                 User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
@@ -88,7 +88,7 @@ namespace VisualPascalABCPlugins
             return "";
         }
 
-        public bool IsLightPTInWorkingDirectiry()
+        public bool IsLightPTInWorkingDirectory()
         {
             var WorkingDir = WorkingDirectory();
             var lightptname = Path.Combine(WorkingDir, "lightpt.dat");
@@ -209,7 +209,7 @@ namespace VisualPascalABCPlugins
             // SSM 20/06/22 Решил включить плагин в инсталлят и показывать кнопки только если есть lightpt.dat в текущем 
             // или auth.dat в корне сетевого - убрал это 11.07.23 - только если при запуске lightpt.dat в текущем!!!
             {
-                if (IsLightPTInWorkingDirectiry()) // если lightpt.dat существует в текущем
+                if (IsLightPTInWorkingDirectory()) // если lightpt.dat существует в текущем
                     InitItems(MenuItems, ToolBarItems);
                 /*else
                 {
@@ -249,7 +249,7 @@ namespace VisualPascalABCPlugins
 
                 // !!! НАДО ТУТ ИСКАТЬ lightpt.dat в текущем!!!
                 var AuthFileFullName = "";
-                if (IsLightPTInWorkingDirectiry()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
+                if (IsLightPTInWorkingDirectory()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
                     AuthFileFullName = FullAuthNameFromWorkingDirOrParent();
                 /*if (AuthFileFullName == "" && IsMechmath)
                 {
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 8c10a925e..354c2b967 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -8884,9 +8884,10 @@ begin
   var n := l.Count;
   for var i := 0 to n - 1 do
   begin
+    var ind := Random(n);
     var v := l[i];
-    l[i] := l[Random(n)];
-    l[Random(n)] := v;
+    l[i] := l[ind];
+    l[ind] := v;
   end;
 end;