bk/2024-09-16-1721

Author: Cesar4D

Src/CodeCompletion/DelphiAIDev.CodeCompletion.KeyTab.pas

@@ -41,15 +41,14 @@ procedure TDelphiAIDevCodeCompletionKeyTab.Process(const AContext: IOTAKeyContex
   LText: string;
   i: Integer;
 begin
-  LText := '';
-  for i := 0 to Pred(FVars.Contents.Count) do
-    LText := LText + FVars.Contents[i].Trim + sLineBreak;
-
   if FVars.Contents.Count > 1 then
     AContext.EditBuffer.EditPosition.Delete(Pred(FVars.Contents.Count));
 
-  AContext.EditBuffer.EditPosition.InsertText(LText.Trim);
-  //Context.EditBuffer.EditPosition.Move(TDelphiAIDevCodeCompletionVars.GetInstance.LineEnd, 20);
+  for i := 0 to Pred(FVars.Contents.Count) do
+  begin
+    AContext.EditBuffer.EditPosition.MoveEOL;
+    AContext.EditBuffer.EditPosition.InsertText(FVars.Contents[i] + sLineBreak);
+  end;
 
   FVars.GetInstance.Clear;
 end;

Src/Test/DelphiAIDev.Test.pas

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