8000 feature/clear-lines-emptys · Code4Delphi/Delphi-AI-Developer@d502842 · GitHub
[go: up one dir, main page]
Skip to content

Commit d502842

Browse files
Cesar4DCesar4D
committed
feature/clear-lines-emptys
1 parent 1f940ca commit d502842

File tree

3 files changed

+35
-13
lines changed

3 files changed

+35
-13
lines changed

‎Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -21,6 +21,7 @@ TDelphiAIDevKeyboardBinding = class(TNotifierObject, IOTAKeyboardBinding)
2121
procedure KeyAltHome(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
2222
procedure KeyTab(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
2323
procedure CodeCompletionSearch(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
24+
//procedure HandleKeyBinding(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
2425
protected
2526
function GetBindingType: TBindingType;
2627
function GetDisplayName: string;
@@ -98,8 +99,24 @@ procedure TDelphiAIDevKeyboardBinding.BindKeyboard(const BindingServices: IOTAKe
9899

99100
BindingServices.AddKeyBinding([Shortcut(VK_TAB, [])], Self.KeyTab, nil);
100101
BindingServices.AddKeyBinding([Shortcut(VK_HOME, [ssAlt])], Self.KeyAltHome, nil);
102+
103+
// //**
104+
// BindingServices.AddKeyBinding([], HandleKeyBinding, nil);
105+
// //**
101106
end;
102107

108+
////**
109+
//procedure TDelphiAIDevKeyboardBinding.HandleKeyBinding(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
110+
//var
111+
// Key: Word;
112+
//begin
113+
// //Key := Word(KeyCode and $FF); // Extrai o código da tecla
114+
// //TUtils.AddLog('Tecla pressionada: ' + IntToStr(Key));
115+
// TUtils.ShowMsg('Aqui');
116+
// BindingResult := TKeyBindingResult.krNextProc
117+
//end;
118+
////**
119+
103120
procedure TDelphiAIDevKeyboardBinding.CodeCompletionSearch(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
104121
begin
105122
try

‎Src/Test/DelphiAIDev.Test.Client.pas

Lines changed: 17 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -6,29 +6,34 @@ interface
66
TDelphiAIDevTestClient = class
77
private
88
FNome: string;
9+
FCPF: string;
910
FEndereco: string;
10-
FBairro: string;
11-
FNumero: Integer;
12-
FTelefone: string;
11+
FIdade: Integer;
1312
public
13+
constructor Create(ANome: string; ACpf: string; AEndereco: string);
1414
property Nome: string read FNome write FNome;
15+
property CPF: string read FCPF write FCPF;
1516
property Endereco: string read FEndereco write FEndereco;
16-
property Bairro: string read FBairro write FBairro;
17-
property Numero: Integer read FNumero write FNumero;
18-
property Telefone: string read FTelefone write FTelefone;
19-
20-
procedure Clear;
17+
property Idade: Integer read FIdade write FIdade;
18+
procedure LimparVariaveis;
2119
end;
2220

2321
implementation
2422

25-
procedure TDelphiAIDevTestClient.Clear;
23+
24+
{ TDelphiAIDevTestClient }
25+
26+
constructor TDelphiAIDevTestClient.Create(ANome, ACpf, AEndereco: string);
27+
begin
28+
29+
end;
30+
31+
procedure TDelphiAIDevTestClient.LimparVariaveis;
2632
begin
2733
FNome := '';
34+
FCPF := '';
2835
FEndereco := '';
29-
FBairro := '';
30-
FNumero := 0;
31-
FTelefone := '';
36+
FIdade := 0;
3237
end;
3338

3439
end.

‎Src/Utils/DelphiAIDev.Utils.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -236,7 +236,7 @@ class procedure TUtils.AddLogInFileTxt(const AMessage: string; const ANameFile:
236236
LTextFile: TextFile;
237237
begin
238238
try
239-
if not(DirectoryExists(DIRECTORY)) then
239+
if not DirectoryExists(DIRECTORY) then
240240
ForceDirectories(DIRECTORY);
241241

242242
LFileName := DIRECTORY + ANameFile + '.txt';

0 commit comments

Comments
 (0)
0