bk/2024-08-29-1654

Author: Cesar4D

Src/CodeCompletion/DelphiAIDev.CodeCompletion.Search.pas

@@ -66,11 +66,19 @@ procedure TDelphiAIDevCodeCompletionSearch.Process(const AContext: IOTAKeyContex
 begin
   FSettings.ValidateFillingSelectedAI(TShowMsg.No);
 
+
   FQuestions.Clear;
   FQuestions.Add(FSettings.LanguageQuestions.GetLanguageDefinition);
   FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeCompletionSuggestion);
   FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeOnly);
-  FQuestions.Add(TUtilsOTA.GetSelectedBlockOrAllCodeUnit.Trim);
+
+  LIOTAEditPosition := AContext.EditBuffer.EditPosition;
+  LIOTAEditPosition.InsertText(TConsts.TAG_CODE_COMPLETION);
+  try
+    FQuestions.Add(TUtilsOTA.GetSelectedBlockOrAllCodeUnit.Trim);
+  finally
+    LIOTAEditPosition.BackspaceDelete(TConsts.TAG_CODE_COMPLETION.Length);
+  end;
 
   //TUtils.ShowMsg('CodeCompletionSearch.Process - FQuestions.Text', FQuestions.Text);
   try
@@ -82,7 +90,6 @@ procedure TDelphiAIDevCodeCompletionSearch.Process(const AContext: IOTAKeyContex
   FVars.Contents.Text := TUtils.ConfReturnAI(FChat.Response.Text);
   //TUtils.ShowMsg('CodeCompletionSearch.Process - FVars.Contents.Text', FVars.Contents.Text);
 
-  LIOTAEditPosition := AContext.EditBuffer.EditPosition;
   LRow := LIOTAEditPosition.Row;
   LColumn := LIOTAEditPosition.Column;
 

Src/Consts/DelphiAIDev.Consts.pas

@@ -24,6 +24,7 @@   TConsts = class
     MARK_BEGIN_SQL2 = '``sql';
     MARK_END = '```';
     PREFIX_NAME_SEPARATOR = 'DelphiAIDevSeparator';
+    TAG_CODE_COMPLETION = '//Suggestion_Code_Delphi';
 
     //SETTINGS
     KEY_SETTINGS_IN_WINDOWS_REGISTRY = '\SOFTWARE\DelphiAIDeveloper';

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -100,26 +100,6 @@ procedure TDelphiAIDevKeyboardBinding.KeyProcBlockReturnAndAlt(const Context: IO
   end;
 end;
 
-procedure TDelphiAIDevKeyboardBinding.KeyAltHome(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
-var
-  LTextCurrentLineOrBlock: string;
-begin
-  if KeyCode <> Shortcut(VK_RETURN, [ssAlt]) then
-    Exit;
-
-  LTextCurrentLineOrBlock := GetCurrentLineOrBlock(CnOtaGetTopMostEditView).Trim;
-  if LTextCurrentLineOrBlock.Trim.IsEmpty then
-    Exit;
-
-  if copy(LTextCurrentLineOrBlock, 1, 2) = '//' then
-    LTextCurrentLineOrBlock := copy(LTextCurrentLineOrBlock, 3, LTextCurrentLineOrBlock.Length);
-
-  DelphiAIDev.Chat.View.DelphiAIDevChatView.QuestionOnShow := LTextCurrentLineOrBlock;
-  DelphiAIDev.Chat.View.DelphiAIDevChatViewShowDockableForm;
-
-  BindingResult := TKeyBindingResult.krUnhandled;
-end;
-
 procedure TDelphiAIDevKeyboardBinding.KeyTab(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
 var
   LText: string;
@@ -144,6 +124,26 @@ procedure TDelphiAIDevKeyboardBinding.KeyTab(const Context: IOTAKeyContext; KeyC
     BindingResult := TKeyBindingResult.krUnhandled;
 end;
 
+procedure TDelphiAIDevKeyboardBinding.KeyAltHome(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+var
+  LTextCurrentLineOrBlock: string;
+begin
+  if KeyCode <> Shortcut(VK_RETURN, [ssAlt]) then
+    Exit;
+
+  LTextCurrentLineOrBlock := GetCurrentLineOrBlock(CnOtaGetTopMostEditView).Trim;
+  if LTextCurrentLineOrBlock.Trim.IsEmpty then
+    Exit;
+
+  if copy(LTextCurrentLineOrBlock, 1, 2) = '//' then
+    LTextCurrentLineOrBlock := copy(LTextCurrentLineOrBlock, 3, LTextCurrentLineOrBlock.Length);
+
+  DelphiAIDev.Chat.View.DelphiAIDevChatView.QuestionOnShow := LTextCurrentLineOrBlock;
+  DelphiAIDev.Chat.View.DelphiAIDevChatViewShowDockableForm;
+
+  BindingResult := TKeyBindingResult.krUnhandled;
+end;
+
 initialization
 
 finalization

Src/Test/DelphiAIDev.Test.pas

@@ -13,6 +13,7 @@   TDelphiAIDevTest = class
     FEmail: string;
     FDataNascimento: TDateTime;
     FApelido: string;
+    FCep: Integer;
   public
     property Nome: string read FNome write FNome;
     property Endereco: string read FEndereco write FEndereco;
@@ -21,17 +22,13 @@   TDelphiAIDevTest = class
     property Telefone: string read FTelefone write FTelefone;
     property Email: string read FEmail write FEmail;
     property DataNascimento: TDateTime read FDataNascimento write FDataNascimento;
-    //Suggestion
     property Apelido: string read FApelido write FApelido;
+    property Cep: Integer read FCep write FCep;
 
     procedure Clear;
   end;
 
 implementation
 
-procedure TDelphiAIDevTest.Clear;
-begin
-
-end;
 
 end.

Src/Utils/DelphiAIDev.Utils.OTA.pas

@@ -309,10 +309,7 @@ class function TUtilsOTA.EditorAsString(AIOTAModule: IOTAModule): string;
 
   LOTASourceEditor := Self.GetIOTASourceEditor(AIOTAModule);
   if LOTASourceEditor = nil then
-  begin
-    //TUtils.ShowMsgSynchronize('Unable to get SourceEditor.');
     Exit;
-  end;
 
   LIOTAEditReader := LOTASourceEditor.CreateReader;
   try