bk/2024-09-16-1743

Author: Cesar4D

Src/CodeCompletion/DelphiAIDev.CodeCompletion.KeyTab.pas

@@ -39,15 +39,23 @@ constructor TDelphiAIDevCodeCompletionKeyTab.Create;
 procedure TDelphiAIDevCodeCompletionKeyTab.Process(const AContext: IOTAKeyContext);
 var
   i: Integer;
+  LTextLine: string;
 begin
   try
     if FVars.Contents.Count > 1 then
       AContext.EditBuffer.EditPosition.Delete(Pred(FVars.Contents.Count));
 
     for i := 0 to Pred(FVars.Contents.Count) do
     begin
-      AContext.EditBuffer.EditPosition.MoveEOL;
-      AContext.EditBuffer.EditPosition.InsertText(FVars.Contents[i] + sLineBreak);
+      LTextLine := FVars.Contents[i].Trim;
+
+      if FVars.Contents.Count > 1 then
+      begin
+        AContext.EditBuffer.EditPosition.MoveEOL;
+        LTextLine := FVars.Contents[i];
+      end;
+
+      AContext.EditBuffer.EditPosition.InsertText(LTextLine + sLineBreak);
     end;
   finally
     FVars.Clear;

Src/Test/DelphiAIDev.Test.pas

@@ -25,13 +25,13 @@   TDelphiAIDevTest = class
     property Apelido: string read FApelido write FApelido;
     property Cep: Integer read FCep write FCep;
     procedure Clear;
-
   end;
 
 implementation
 
 procedure TDelphiAIDevTest.Clear;
 begin
+
 end;
 
 end.