refactor-poo

Author: Cesar4D

Samples/ToolsetsPOO/Src/ToolsetsPOO.Main.View.dfm

@@ -13,7 +13,6 @@ object ToolsetsPOOMainView: TToolsetsPOOMainView
   KeyPreview = True
   Position = poScreenCenter
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
   TextHeight = 15
   object Splitter1: TSplitter
     Left = 0
@@ -74,8 +73,9 @@ object ToolsetsPOOMainView: TToolsetsPOOMainView
         Align = alClient
         BorderStyle = bsNone
         Lines.Strings = (
-          'Ol'#225' quem '#233' voc'#234' e quem '#233' o seu fabricante?')
+          'Qual o endere'#231'o do CEP 01310-100')
         TabOrder = 0
+        ExplicitLeft = 4
       end
     end
     object Panel1: TPanel

Samples/ToolsetsPOO/Src/ToolsetsPOO.Main.View.pas

@@ -47,11 +47,11 @@   TToolsetsPOOMainView = class(TForm)
     mmResponse: TMemo;
     procedure FormCreate(Sender: TObject);
     procedure btnExecuteClick(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
   private
     FCloudAI: TTMSMCPCloudAI;
     FToolSetCEP: TToolSetCEP;
-    procedure OnCloudAIExecuted(Sender: TObject; AResponse: TTMSMCPCloudAIResponse; AHttpStatusCode: Integer; AHttpResult: string);
+    procedure OnCloudAIExecuted(Sender: TObject; AResponse: TTMSMCPCloudAIResponse;
+      AHttpStatusCode: Integer; AHttpResult: string);
   public
 
   end;
@@ -78,11 +78,6 @@ procedure TToolsetsPOOMainView.FormCreate(Sender: TObject);
   cBoxIAService.ItemIndex := 0;
 end;
 
-procedure TToolsetsPOOMainView.FormDestroy(Sender: TObject);
-begin
-  //FMyToolSet.Free;
-end;
-
 procedure TToolsetsPOOMainView.OnCloudAIExecuted(Sender: TObject; AResponse: TTMSMCPCloudAIResponse;
   AHttpStatusCode: Integer; AHttpResult: string);
 begin

Samples/ToolsetsRAD/Src/ToolsetsRAD.Main.View.dfm

@@ -13,7 +13,6 @@ object ToolsetsRADMainView: TToolsetsRADMainView
   KeyPreview = True
   Position = poScreenCenter
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
   TextHeight = 15
   object Splitter1: TSplitter
     Left = 0
@@ -74,7 +73,7 @@ object ToolsetsRADMainView: TToolsetsRADMainView
         Align = alClient
         BorderStyle = bsNone
         Lines.Strings = (
-          'Ol'#225' quem '#233' voc'#234' e quem '#233' o seu fabricante?')
+          'Qual o endere'#231'o do CEP 01310-100')
         TabOrder = 0
       end
     end
@@ -155,8 +154,8 @@ object ToolsetsRADMainView: TToolsetsRADMainView
     Settings.MistralModel = 'mistral-large-latest'
     Tools = <>
     OnExecuted = TMSMCPCloudAI1Executed
-    Left = 585
-    Top = 138
+    Left = 401
+    Top = 90
   end
   object ToolSetCEP: TTMSMCPCloudAIToolSet
     AI = TMSMCPCloudAI1
@@ -174,7 +173,7 @@ object ToolsetsRADMainView: TToolsetsRADMainView
           end>
         OnExecute = TMSMCPCloudAIToolSet1Tools0Execute
       end>
-    Left = 585
-    Top = 218
+    Left = 401
+    Top = 154
   end
 end

Samples/ToolsetsRAD/Src/ToolsetsRAD.Main.View.pas

@@ -24,11 +24,6 @@ interface
   TMS.MCP.CloudBase;
 
 type
-  TMyToolSet = class(TTMSMCPCloudAIToolSet)
-  protected
-    procedure DefineTools; override;
-  end;
-
   TToolsetsRADMainView = class(TForm)
     pnTop: TPanel;
     Label1: TLabel;
@@ -46,12 +41,10 @@   TToolsetsRADMainView = class(TForm)
     ToolSetCEP: TTMSMCPCloudAIToolSet;
     procedure FormCreate(Sender: TObject);
     procedure btnExecuteClick(Sender: TObject);
-    procedure TMSMCPCloudAI1Executed(Sender: TObject; AResponse: TTMSMCPCloudAIResponse; AHttpStatusCode: Integer;
-      AHttpResult: string);
-    procedure FormDestroy(Sender: TObject);
+    procedure TMSMCPCloudAI1Executed(Sender: TObject; AResponse: TTMSMCPCloudAIResponse;
+      AHttpStatusCode: Integer; AHttpResult: string);
     procedure TMSMCPCloudAIToolSet1Tools0Execute(Sender: TObject; Args: TJSONObject; var Result: string);
   private
-    FMyToolSet: TMyToolSet;
     function GetEndereco(const ACEP: string): string;
   public
 
@@ -69,32 +62,34 @@ procedure TToolsetsRADMainView.FormCreate(Sender: TObject);
   ReportMemoryLeaksOnShutdown := True;
 
   TMSMCPCloudAI1.APIKeys.LoadFromFile('..\..\Files\aikeys.cfg', 'PasswordTest');
-  TMSMCPCloudAI1.Settings.WebSearch := True;
-
   cBoxIAService.Items.Assign(TMSMCPCloudAI1.GetServices(True));
   cBoxIAService.ItemIndex := 0;
-
-  //TTMSMCPCloudAIToolSet.EndUpdate;
-  //EndUpdate;
-  FMyToolSet := TMyToolSet.Create(nil);
-  //FMyToolSet.AI := TMSMCPCloudAI1;
-end;
-
-procedure TToolsetsRADMainView.FormDestroy(Sender: TObject);
-begin
-  FMyToolSet.Free;
 end;
 
 procedure TToolsetsRADMainView.btnExecuteClick(Sender: TObject);
 begin
-  TMSMCPCloudAI1.Service := TTMSMCPCloudAIService(cBoxIAService.Items.Objects[cBoxIAService.ItemIndex]);
-
   mmResponse.Text := 'Processando...';
+
+  TMSMCPCloudAI1.Service := TTMSMCPCloudAIService(cBoxIAService.Items.Objects[cBoxIAService.ItemIndex]);
   TMSMCPCloudAI1.Context := mmQuestion.Lines;
   TMSMCPCloudAI1.Execute();
   ProgressBar1.State := pbsNormal;
 end;
 
+procedure TToolsetsRADMainView.TMSMCPCloudAI1Executed(Sender: TObject; AResponse: TTMSMCPCloudAIResponse;
+  AHttpStatusCode: Integer; AHttpResult: string);
+begin
+  ProgressBar1.State := pbsPaused;
+
+  if AHttpStatusCode <> 200 then
+  begin
+    mmResponse.Lines.Text := 'HTTP error code: ' + AHttpStatusCode.ToString + sLineBreak + AHttpResult;
+    Exit;
+  end;
+
+  mmResponse.Lines := AResponse.Content;
+end;
+
 procedure TToolsetsRADMainView.TMSMCPCloudAIToolSet1Tools0Execute(Sender: TObject; Args: TJSONObject; var Result: string);
 var
   LCep: string;
@@ -125,37 +120,4 @@ function TToolsetsRADMainView.GetEndereco(const ACEP: string): string;
   end;
 end;
 
-procedure TToolsetsRADMainView.TMSMCPCloudAI1Executed(Sender: TObject; AResponse: TTMSMCPCloudAIResponse;
-  AHttpStatusCode: Integer; AHttpResult: string);
-begin
-  ProgressBar1.State := pbsPaused;
-
-  if AHttpStatusCode <> 200 then
-  begin
-    mmResponse.Lines.Text := 'HTTP error code: ' + AHttpStatusCode.ToString + sLineBreak + AHttpResult;
-    Exit;
-  end;
-
-  mmResponse.Lines := AResponse.Content;
-end;
-
-{ TMyToolSet }
-procedure TMyToolSet.DefineTools;
-var
-  LTool: TTMSMCPCloudAITool;
-  LParam: TTMSMCPCloudAIParameter;
-begin
-  BeginUpdate;
-
-  LTool := Tools.Add;
-  LTool.Name := 'MyFirstProc';
-  LTool.Description := 'this is the description that should make the LLM aware of what the tool is used for';
-
-  LParam := LTool.Parameters.Add;
-  LParam.Name := 'FirstParam';
-  LParam.Description := 'describe here what the first parameter is used for';
-
-  EndUpdate;
-end;
-
 end.