Преглед на файлове

+ FindComponent should be cse insensitive

git-svn-id: trunk@3545 -
michael преди 19 години
родител
ревизия
f1cb336ee0
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rtl/objpas/classes/compon.inc

+ 1 - 1
rtl/objpas/classes/compon.inc

@@ -461,7 +461,7 @@ begin
   Result:=Nil;
   If (AName='') or Not assigned(FComponents) then exit;
   For i:=0 to FComponents.Count-1 do
-    if TComponent(FComponents[I]).Name=AName then
+    if (CompareText(TComponent(FComponents[I]).Name,AName)=0) then
       begin
       Result:=TComponent(FComponents.Items[I]);
       exit;