simpler ClearLineIndexer

Alexey-T · Jun 21, 2020 · 371f593 · 371f593
1 parent ee0c355
commit 371f593
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/atsynedit/atsynedit_ranges.pas b/atsynedit/atsynedit_ranges.pas
@@ -184,12 +184,13 @@ procedure TATSynRanges.SetItems(Index: integer; const AValue: TATSynRange);
 end;
 
 procedure TATSynRanges.ClearLineIndexer(ALineCount: integer; ASetLenOnly: boolean=false);
-var
-  i: integer;
 begin
   if not ASetLenOnly then
+    {
     for i:= High(FLineIndexer) downto 0 do
       SetLength(FLineIndexer[i], 0);
+    }
+    SetLength(FLineIndexer, 0); //it frees old memory? seems yes
 
   SetLength(FLineIndexer, ALineCount);
 end;