From 5d317a4e4678ec3f93bd4a48a5440102dedbd169 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 25 Apr 2017 11:34:25 +0000
Subject: [PATCH]  * manual CSE for fcomponents[i] in FindComponent, mantis
 #31628

git-svn-id: trunk@35946 -
---
 rtl/objpas/classes/compon.inc | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/rtl/objpas/classes/compon.inc b/rtl/objpas/classes/compon.inc
index 874840cb43..7a9918df5e 100644
--- a/rtl/objpas/classes/compon.inc
+++ b/rtl/objpas/classes/compon.inc
@@ -543,16 +543,16 @@ end;
 Function  TComponent.FindComponent(const AName: string): TComponent;
 
 Var I : longint;
-
+    C : TComponent;
 begin
   Result:=Nil;
   If (AName='') or Not assigned(FComponents) then exit;
   For i:=0 to FComponents.Count-1 do
-    if (CompareText(TComponent(FComponents[I]).Name,AName)=0) then
-      begin
-      Result:=TComponent(FComponents.Items[I]);
-      exit;
-      end;
+    Begin
+      c:=TComponent(FComponents[I]);
+      If (CompareText(C.Name,AName)=0) then
+        Exit(C);
+    End;
 end;