paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 3545 via svnmerge from

Browse Source 
svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r3545 | michael | 2006-05-16 13:14:09 +0200 (Tue, 16 May 2006) | 1 line
  
  + FindComponent should be cse insensitive
........

git-svn-id: branches/fixes_2_0@3546 -
This commit is contained in:
michael 2006-05-16 11:17:48 +00:00
parent 378b08c4a7
commit 3f79c47847
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/compon.inc
View File

@ -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;