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

+ Merged revision 3550

Browse Source 
git-svn-id: branches/fixes_2_0@3551 -
This commit is contained in:
michael 2006-05-17 06:17:10 +00:00
parent 3f79c47847
commit 68200e1606
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

@ -340,7 +340,7 @@ Procedure TComponent.ValidateRename(AComponent: TComponent;
begin
//!! This contradicts the Delphi manual.
If (AComponent<>Nil) and (CurName<>NewName) and (AComponent.Owner = Self) and
If (AComponent<>Nil) and (CompareText(CurName,NewName)<>0) and (AComponent.Owner = Self) and
(FindComponent(NewName)<>Nil) then
raise EComponentError.Createfmt(SDuplicateName,[newname]);
If (csDesigning in FComponentState) and (FOwner<>Nil) then