optim

Alexey-T · Apr 3, 2020 · c8930ce · c8930ce
1 parent 5e99ce5
commit c8930ce
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/atsynedit/atsynedit_wrapinfo.pas b/atsynedit/atsynedit_wrapinfo.pas
@@ -215,16 +215,14 @@ procedure TATWrapInfo.FindIndexesOfLineNumber(ALineNum: integer; out AFrom, ATo:
 function TATWrapInfo.FindIndexOfCaretPos(APos: TPoint): integer;
 var
   NFrom, NTo, i: integer;
-  Item: TATWrapItem;
 begin
   Result:= -1;
   FindIndexesOfLineNumber(APos.Y, NFrom, NTo);
   if NFrom<0 then Exit;
   for i:= NFrom to NTo do
   begin
     Result:= i;
-    Item:= Data[i];
-    if Item.NCharIndex+Item.NLength > APos.X+1 then // APos.X+1: see CudaText issue 2466
+    if Data[i].NCharIndex + Data[i].NLength > APos.X+1 then // APos.X+1: see CudaText issue 2466
       Break;
   end;
 end;