оптимизон от нейронки, доделал автоматические действия, добавил глобальный лог, сделал реконекты к ДА

uGeneral.pas

@@ -61,11 +61,14 @@ type
     procedure frSettings1btnDAStartClick(Sender: TObject);
     procedure frCommands1btnRandAddClick(Sender: TObject);
     procedure frOBS1btnDeleteeChatClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
   private
     { Private declarations }
     procedure ReadDB();
   public
     { Public declarations }
+    procedure toLog(aModule, aMethod, aMessage: string; aCode: integer);
+    procedure GlobalExceptionHandler(Sender: TObject; E: Exception);
   end;
 
 var
@@ -78,6 +81,15 @@ implementation
 
 {$R *.fmx}
 
+procedure TTTW_Bot.GlobalExceptionHandler(Sender: TObject; E: Exception);
+begin
+  try
+    TTW_Bot.toLog('GlobalException', E.ClassName, E.Message, 2);
+  except
+    // íà ñëó÷àé, åñëè ëîããåð ñàì êèíåò èñêëþ÷åíèå
+  end;
+end;
+
 procedure TTTW_Bot.cbThemeChange(Sender: TObject);
 begin
   cbTheme.ItemIndex := cbTheme.Items.IndexOf(cbTheme.text);
@@ -89,7 +101,6 @@ end;
 procedure TTTW_Bot.FormCreate(Sender: TObject);
 var
   Path: string;
-  SearchRec: TSearchRec;
 
   function GetPathToTestExe: string; // âåðíåò ïàïêó romaming
   begin
@@ -149,7 +160,15 @@ begin
   for Path in TDirectory.GetFiles(myConst.stlPath) do
     cbTheme.Items.Add(ExtractFileName(Path));
   cbTheme.ItemIndex := strtoint(db.ReadSetting('cbTheme', '-1'));
+  frLog1.FLogList := TList<TRLog>.Create;
+end;
 
+procedure TTTW_Bot.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(db);
+  FreeAndNil(frAutoActions1.FTimerList);
+  FreeAndNil(frLog1.FLogList);
+  inherited;
 end;
 
 procedure TTTW_Bot.frCommands1btnRandAddClick(Sender: TObject);
@@ -171,21 +190,13 @@ begin
 end;
 
 procedure TTTW_Bot.ReadDB;
-var
-  I: Integer;
-  c: TComponent;
-  sl: TStringList;
-
-  SavedColor: TAlphaColor;
-
-  ColorStr: string;
 
   function XorDecryptToStrings(const InputFile, Key: string): TStrings;
   var
     InStream: TFileStream;
     MemStream: TMemoryStream;
     KeyBytes: TBytes;
-    KeyLen, KeyIndex: Integer;
+    KeyLen, KeyIndex: integer;
     B: Byte;
   begin
     // Ïðåîáðàçóåì êëþ÷ â áàéòû ñ èñïîëüçîâàíèåì ANSI êîäèðîâêè
@@ -229,7 +240,7 @@ var
 // Çàãðóçêà êîìïîíåíòîâ íàñòðîåê (TEdit, TCheckBox)
   procedure LoadSettingsComponents;
   var
-    I: Integer;
+    I: integer;
     c: TComponent;
   begin
     for I := 0 to frSettings1.ComponentCount - 1 do
@@ -266,7 +277,7 @@ var
   procedure LoadEncryptedConfig;
   var
     sl: TStringList;
-    I: Integer;
+    I: integer;
   begin
     if not FileExists(myConst.cfg1) then
       Exit;
@@ -318,7 +329,7 @@ var
 // Çàãðóçêà íàñòðîåê óâåäîìëåíèé
   procedure LoadNotifySettings;
   var
-    I: Integer;
+    I: integer;
     c: TComponent;
   begin
     for I := 0 to frNotify1.ComponentCount - 1 do
@@ -339,9 +350,9 @@ var
 // Çàãðóçêà íàñòðîåê ÈÈ
   procedure LoadAISettings;
   var
-    I: Integer;
+    I: integer;
     c: TComponent;
-    ii: Integer;
+    ii: integer;
 
     // Íàñòðîéêè GigaChat
     procedure SetupGigaChatSettings;
@@ -470,4 +481,35 @@ begin
     pwidechar('https://www.flaticon.com/ru/authors/karacis'), nil, nil, 1);
 end;
 
+procedure TTTW_Bot.toLog(aModule, aMethod, aMessage: string; aCode: integer);
+begin
+  TThread.Synchronize(nil,
+    procedure
+    var
+      ml: TRLog;
+    begin
+      // Èíèöèàëèçàöèÿ âñåõ ïîëåé çàïèñè
+      ml.rTime := Now;
+      case aCode of
+        0:
+          ml.rType := 'INFO';
+        1:
+          ml.rType := 'WARNING';
+        2:
+          ml.rType := 'ERROR';
+        3:
+          ml.rType := 'DEBUG';
+      else
+        ml.rType := 'UNKNOWN';
+      end;
+      ml.rModule := aModule; // string
+      ml.rMethod := aMethod; // string
+      ml.rMessage := aMessage; // string
+      // Äîáàâëÿåì çàïèñü â ñïèñîê
+      frLog1.FLogList.Add(ml);
+      // Îáíîâëÿåì ãðèä
+      frLog1.UpdateGridFilters;
+    end);
+end;
+
 end.