feature/clear-lines-emptys

Author: Cesar4D

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -21,6 +21,7 @@   TDelphiAIDevKeyboardBinding = class(TNotifierObject, IOTAKeyboardBinding)
     procedure KeyAltHome(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
     procedure KeyTab(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
     procedure CodeCompletionSearch(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+    //procedure HandleKeyBinding(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
   protected
     function GetBindingType: TBindingType;
     function GetDisplayName: string;
@@ -98,8 +99,24 @@ procedure TDelphiAIDevKeyboardBinding.BindKeyboard(const BindingServices: IOTAKe
 
   BindingServices.AddKeyBinding([Shortcut(VK_TAB, [])], Self.KeyTab, nil);
   BindingServices.AddKeyBinding([Shortcut(VK_HOME, [ssAlt])], Self.KeyAltHome, nil);
+
+//  //**
+//  BindingServices.AddKeyBinding([], HandleKeyBinding, nil);
+//  //**
 end;
 
+////**
+//procedure TDelphiAIDevKeyboardBinding.HandleKeyBinding(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+//var
+//  Key: Word;
+//begin
+//  //Key := Word(KeyCode and $FF); // Extrai o código da tecla
+//  //TUtils.AddLog('Tecla pressionada: ' + IntToStr(Key));
+//  TUtils.ShowMsg('Aqui');
+//  BindingResult := TKeyBindingResult.krNextProc
+//end;
+////**
+
 procedure TDelphiAIDevKeyboardBinding.CodeCompletionSearch(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
 begin
   try

Src/Test/DelphiAIDev.Test.Client.pas

@@ -6,29 +6,34 @@ interface
   TDelphiAIDevTestClient = class
   private
     FNome: string;
+    FCPF: string;
     FEndereco: string;
-    FBairro: string;
-    FNumero: Integer;
-    FTelefone: string;
+    FIdade: Integer;
   public
+    constructor Create(ANome: string; ACpf: string; AEndereco: string);
     property Nome: string read FNome write FNome;
+    property CPF: string read FCPF write FCPF;
     property Endereco: string read FEndereco write FEndereco;
-    property Bairro: string read FBairro write FBairro;
-    property Numero: Integer read FNumero write FNumero;
-    property Telefone: string read FTelefone write FTelefone;
-
-    procedure Clear;
+    property Idade: Integer read FIdade write FIdade;
+    procedure LimparVariaveis;
   end;
 
 implementation
 
-procedure TDelphiAIDevTestClient.Clear;
+
+{ TDelphiAIDevTestClient }
+
+constructor TDelphiAIDevTestClient.Create(ANome, ACpf, AEndereco: string);
+begin
+
+end;
+
+procedure TDelphiAIDevTestClient.LimparVariaveis;
 begin
   FNome := '';
+  FCPF := '';
   FEndereco := '';
-  FBairro := '';
-  FNumero := 0;
-  FTelefone := '';
+  FIdade := 0;
 end;
 
 end.

Src/Utils/DelphiAIDev.Utils.pas

@@ -236,7 +236,7 @@ class procedure TUtils.AddLogInFileTxt(const AMessage: string; const ANameFile:
   LTextFile: TextFile;
 begin
   try
-    if not(DirectoryExists(DIRECTORY)) then
+    if not DirectoryExists(DIRECTORY) then
       ForceDirectories(DIRECTORY);
 
     LFileName := DIRECTORY + ANameFile + '.txt';