bk/2024-09-16-1404

Author: Cesar4D

Src/AI/DelphiAIDev.AI.pas

@@ -56,6 +56,9 @@ procedure TDelphiAIDevAI.ProcessSend(const AQuestion: string);
   LQuestion := TUtils.AdjustQuestionToJson(AQuestion);
   FResponse.Clear;
 
+  if TUtils.InDebugMy then
+    TUtils.AddLogDeleteFileFirst(LQuestion, 'DelphiAIDevAI_ProcessSend');
+
   case FAiUse of
     TC4DAiAvailable.Gemini:
       FResponse.Text := TDelphiAIDevAIGemini.New(FSettings).GetResponse(LQuestion);

Src/Test/DelphiAIDev.Test.Client.pas

@@ -10,7 +10,6 @@   TDelphiAIDevTestClient = class
     FBairro: string;
     FNumero: Integer;
     FTelefone: string;
-
   public
     property Nome: string read FNome write FNome;
     property Endereco: string read FEndereco write FEndereco;

Src/Types/DelphiAIDev.Types.pas

@@ -175,14 +175,27 @@ function TC4DLanguageHelper.GetMsgJSONInformedAnswerQuestion: string;
 function TC4DLanguageHelper.GetMsgCodeCompletionSuggestion: string;
 begin
   Result := 'Com base no seguinte código delphi, de uma sugestão ' +
-    'de código para ser adicionado onde esta o comentário //Suggestion';
+    'de código para ser adicionado onde esta o comentário %s ' + sLineBreak +
+    'Importante: antes do implementation e dentro dos especificadores '+
+    'private, protected, public, published deve-se adicionar apenas declarações '+
+    'e nunca se deve adicionar implementações de códigos delphi que contenham begin. ' + sLineBreak +
+    'Nas sugestões, nunca repita um código que já exista. ';
   case Self of
     TC4DLanguage.en:
-      Result := 'Based on the following Delphi code, give a suggestion of code to be added where the comment //Suggestion is';
+      Result := 'Based on the following Delphi code, give a suggestion of code to be added where the comment %s is ' + sLineBreak +
+        'Important: before implementation and within the '+
+        'private, protected, public, published specifiers, you should only add declarations '+
+        'and never add Delphi code implementations that contain begin. '+ sLineBreak +
+        'In suggestions, never repeat code that already exists. ';
     TC4DLanguage.es:
-      Result := 'Basado en el siguiente código Delphi, se agregará una sugerencia de código donde está el comentario //Sugerencia';
+      Result := 'Basado en el siguiente código Delphi, se agregará una sugerencia de código donde está el comentario %s ' + sLineBreak +
+        'Importante: antes de la implementación y dentro de los especificadores '+
+        'privados, protegidos, públicos y publicados, solo se deben agregar declaraciones '+
+        'y nunca se deben agregar implementaciones de códigos Delphi que contienen begin. ' + sLineBreak +
+        'En sugerencias, nunca repita código que ya existe. ';
   end;
 
+  Result := Format(Result, [TConsts.TAG_CODE_COMPLETION]);
   Result := Result + sLineBreak;
 end;
 

Src/Utils/DelphiAIDev.Utils.pas

@@ -36,7 +36,10 @@   TUtils = class
     class procedure DriverIDFillItemsTStrings(AStrings: TStrings);
     class procedure DefaultsQuestionsKindFillItemsTStrings(AStrings: TStrings);
     class function AdjustQuestionToJson(const AValue: string): string;
+    class function InDebugMy: Boolean;
     class procedure AddLog(const AMessage: string);
+    class procedure AddLogDeleteFileFirst(const AMessage: string; const ANameFile: string);
+    class procedure AddLogInFileTxt(const AMessage: string; const ANameFile: string; ADeleteFileFirst: Boolean = False);
     class function GetFileName(const AExtension: string): string;
     class procedure MemoFocusOnTheEnd(const AMemo: TMemo);
     class function IfThenColor(const Conditional: Boolean; const AColorTrue, AColorFalse: TColor): TColor;
@@ -210,11 +213,24 @@ class function TUtils.AdjustQuestionToJson(const AValue: string): string;
   Result := Result.Replace('\\"', '\"', [rfReplaceAll, rfIgnoreCase]);
 end;
 
-
+class function TUtils.InDebugMy: Boolean;
+begin
+  Result := FileExists('C:\Temp\DelphiAIDev\DebugOn.c4d');
+end;
 
 class procedure TUtils.AddLog(const AMessage: string);
+begin
+  Self.AddLogInFileTxt(AMessage, FormatDateTime('yyyy-mm-dd', Now));
+end;
+
+class procedure TUtils.AddLogDeleteFileFirst(const AMessage: string; const ANameFile: string);
+begin
+  Self.AddLogInFileTxt(AMessage, ANameFile, True);
+end;
+
+class procedure TUtils.AddLogInFileTxt(const AMessage: string; const ANameFile: string; ADeleteFileFirst: Boolean = False);
 const
-  DIRECTORY = 'C:\Temp\DelphiAIDev\';
+  DIRECTORY = 'C:\Temp\DelphiAIDev\Logs\';
 var
   LFileName: string;
   LTextFile: TextFile;
@@ -223,19 +239,27 @@ class procedure TUtils.AddLog(const AMessage: string);
     if not(DirectoryExists(DIRECTORY)) then
       ForceDirectories(DIRECTORY);
 
-    LFileName := DIRECTORY + FormatDateTime('yyyy-mm-dd', Now) + '.txt';
+    LFileName := DIRECTORY + ANameFile + '.txt';
+
+    if ADeleteFileFirst then
+    begin
+      if FileExists(LFileName)then
+        DeleteFile(LFileName);
+    end;
+
     AssignFile(LTextFile, LFileName);
     if not FileExists(LFileName)then
       Rewrite(LTextFile);
     Append(LTextFile);
     Writeln(LTextFile, Format('%s: %s', [DateTimeToStr(Now), AMessage]));
     CloseFile(LTextFile);
   except
-//    on E: Exception do
-//      ShowMsg('Unable to generate log. Message: ' + E.Message + sLineBreak + 'Filename: ' + LFileName);
+    //on E: Exception do
+    //  ShowMsg('Unable to generate log. Message: ' + E.Message + sLineBreak + 'Filename: ' + LFileName);
   end;
 end;
 
+
 class function TUtils.GetFileName(const AExtension: string): string;
 var
   LFileName: string;