bk/2024-08-30-0142

Author: Cesar4D

Src/AI/DelphiAIDev.AI.pas

@@ -56,7 +56,6 @@ procedure TDelphiAIDevAI.ProcessSend(const AQuestion: string);
   LQuestion := TUtils.AdjustQuestionToJson(AQuestion);
   FResponse.Clear;
 
-  TUtils.ShowMsgSynchronize(FAiUse.ToString);
   case FAiUse of
     TC4DAiAvailable.Gemini:
       FResponse.Text := TDelphiAIDevAIGemini.New(FSettings).GetResponse(LQuestion);

Src/Utils/DelphiAIDev.Utils.pas

@@ -228,7 +228,7 @@ class procedure TUtils.AddLog(const AMessage: string);
     if not FileExists(LFileName)then
       Rewrite(LTextFile);
     Append(LTextFile);
-    Writeln(LTextFile, AMessage);
+    Writeln(LTextFile, Format('%s: %s', [DateTimeToStr(Now), AMessage]));
     CloseFile(LTextFile);
   except
 //    on E: Exception do