From 2a19e152b70ffc0ff673e1bea07c836eb98d0c4b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 8 Mar 2022 11:35:24 +0100
Subject: [PATCH] * Micro-optimization. Fix issue #39617

---
 rtl/objpas/classes/stringl.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 48cdf8de17..02418d8955 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1476,6 +1476,8 @@ Var
   Obj : TObject;
   Str : String;
 begin
+  if (CurIndex=NewIndex) then 
+    Exit;
   BeginUpdate;
   Try
     Obj:=Objects[CurIndex];
@@ -1485,7 +1487,7 @@ begin
     InsertObject(NewIndex,Str,Obj);
   finally
     EndUpdate;
-    end;
+  end;
 end;
 
 function TStrings.Pop: string;