bk/2024-09-16-1736

Author: Cesar4D

Src/CodeCompletion/DelphiAIDev.CodeCompletion.KeyTab.pas

@@ -38,19 +38,20 @@ constructor TDelphiAIDevCodeCompletionKeyTab.Create;
 
 procedure TDelphiAIDevCodeCompletionKeyTab.Process(const AContext: IOTAKeyContext);
 var
-  LText: string;
   i: Integer;
 begin
-  if FVars.Contents.Count > 1 then
-    AContext.EditBuffer.EditPosition.Delete(Pred(FVars.Contents.Count));
-
-  for i := 0 to Pred(FVars.Contents.Count) do
-  begin
-    AContext.EditBuffer.EditPosition.MoveEOL;
-    AContext.EditBuffer.EditPosition.InsertText(FVars.Contents[i] + sLineBreak);
+  try
+    if FVars.Contents.Count > 1 then
+      AContext.EditBuffer.EditPosition.Delete(Pred(FVars.Contents.Count));
+
+    for i := 0 to Pred(FVars.Contents.Count) do
+    begin
+      AContext.EditBuffer.EditPosition.MoveEOL;
+      AContext.EditBuffer.EditPosition.InsertText(FVars.Contents[i] + sLineBreak);
+    end;
+  finally
+    FVars.Clear;
   end;
-
-  FVars.GetInstance.Clear;
 end;
 
 end.

Src/MainMenu/DelphiAIDev.MainMenu.pas

@@ -57,46 +57,50 @@ destructor TDelphiAIDevIDEMainMenu.Destroy;
 end;
 
 procedure TDelphiAIDevIDEMainMenu.CreateMenus;
+var
+ LImgList: TDelphiAIDevIDEImageListMain;
 begin
+  LImgList := TDelphiAIDevIDEImageListMain.GetInstance;
+
   Self.CreateMenuDelphiAIDeveloperInIDEMenu;
 
   Self.CreateSubMenu(TConsts.MENU_IDE_CHAT_NAME,
     TConsts.MENU_IDE_CHAT_CAPTION,
     TDelphiAIDevIDEMainMenuClicks.ChatClick,
-    TDelphiAIDevIDEImageListMain.GetInstance.ImgIndexMessage,
+    LImgList.ImgIndexMessage,
     Self.GetShortCutStrChat);
 
   Self.CreateSubMenu(TConsts.PREFIX_NAME_SEPARATOR + '10', '-', nil);
 
   Self.CreateSubMenu(TConsts.MENU_IDE_DEFAULTS_QUESTIONS_NAME,
     TConsts.MENU_IDE_DEFAULTS_QUESTIONS_CAPTION,
     TDelphiAIDevIDEMainMenuClicks.DefaultsQuestionsClick,
-    TDelphiAIDevIDEImageListMain.GetInstance.ImgQuestion);
+    LImgList.ImgQuestion);
 
   Self.CreateSubMenu(TConsts.PREFIX_NAME_SEPARATOR + '20', '-', nil);
 
   Self.CreateSubMenu(TConsts.MENU_IDE_DEFAULTS_DATABASES_ADD_NAME,
     TConsts.MENU_IDE_DEFAULTS_DATABASES_ADD_Caption,
     TDelphiAIDevIDEMainMenuClicks.DatabasesAddClick,
-    TDelphiAIDevIDEImageListMain.GetInstance.ImgDatabaseAdd);
+    LImgList.ImgDatabaseAdd);
 
   Self.CreateSubMenu(TConsts.MENU_IDE_DEFAULTS_DATABASES_CHAT_NAME,
     TConsts.MENU_IDE_DEFAULTS_DATABASES_CHAT_CAPTION,
     TDelphiAIDevIDEMainMenuClicks.DatabasesChatClick,
-    TDelphiAIDevIDEImageListMain.GetInstance.ImgDatabaseExecute);
+    LImgList.ImgDatabaseExecute);
 
   Self.CreateSubMenu(TConsts.PREFIX_NAME_SEPARATOR + '30', '-', nil);
 
   Self.CreateSubMenu(TConsts.MENU_IDE_SETTINGS_NAME,
     TConsts.MENU_IDE_SETTINGS_CAPTION,
     TDelphiAIDevIDEMainMenuClicks.SettingsClick,
-    TDelphiAIDevIDEImageListMain.GetInstance.ImgIndexGear);
+    LImgList.ImgIndexGear);
 
   Self.CreateSubMenu(TConsts.PREFIX_NAME_SEPARATOR + '40', '-', nil);
   Self.CreateSubMenu(TConsts.MENU_IDE_ABOUT_NAME,
     TConsts.MENU_IDE_ABOUT_CAPTION,
     TDelphiAIDevIDEMainMenuClicks.AboutClick,
-    TDelphiAIDevIDEImageListMain.GetInstance.ImgIndexC4D_Logo);
+    LImgList.ImgIndexC4D_Logo);
 end;
 
 procedure TDelphiAIDevIDEMainMenu.CreateMenuDelphiAIDeveloperInIDEMenu;

Src/Test/DelphiAIDev.Test.pas

@@ -32,7 +32,6 @@ implementation
 
 procedure TDelphiAIDevTest.Clear;
 begin
-
 end;
 
 end.

Src/Utils/DelphiAIDev.Utils.pas

@@ -408,9 +408,6 @@ class function TUtils.ConfReturnAI(const AValue: string): string;
       if (i = 0) and ((LStrLine.Trim.IsEmpty)or(LStrLine = sLineBreak)) then
         Continue;
 
-      //if (i = Pred(LStrings.Count)) and ((LStrLine.Trim.IsEmpty) or (LStrLine = sLineBreak)) then
-      //  Continue;
-
       Result := Result + LStrLine + sLineBreak;
     end;