paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 05:10:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Component name can be empty

Browse Source 
git-svn-id: trunk@7737 -
This commit is contained in:
michael 2007-06-20 07:28:14 +00:00
parent 1ae31b4037
commit a7a0e9a307
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

@ -283,7 +283,7 @@ Procedure TComponent.SetName(const NewName: TComponentName);
begin begin
If FName=NewName then exit; If FName=NewName then exit;
If not IsValidIdent(NewName) then If (NewName<>'') and not IsValidIdent(NewName) then
Raise EComponentError.CreateFmt(SInvalidName,[NewName]); Raise EComponentError.CreateFmt(SInvalidName,[NewName]);
If Assigned(FOwner) Then If Assigned(FOwner) Then
FOwner.ValidateRename(Self,FName,NewName) FOwner.ValidateRename(Self,FName,NewName)