paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 21:18:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

rtti-controls: removed check for IsValidIdent fo name property

Browse Source 
git-svn-id: trunk@11767 -
This commit is contained in:
mattias 2007-08-09 21:26:32 +00:00
parent 4c9036617f
commit 7431e8f800
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/rtticontrols/rttictrls.pas
View File

@ -1645,10 +1645,9 @@ procedure TCustomPropertyLink.SetObjectAndProperty(NewPersistent: TPersistent;
var
AComponent: TComponent;
begin
if (NewPropertyName<>'')
and ((length(NewPropertyName)>254) or (not IsValidIdent(NewPropertyName)))
then
raise Exception('TCustomPropertyLink.SetObjectAndProperty invalid identifier "'+NewPropertyName+'"');
// Note: checking for IsValidIdent is not needed, because
// an identifier is is only needed for streaming. So every string as Name is
// allowed.
if (NewPersistent<>TIObject) or (NewPropertyName<>TIPropertyName) then begin
FPropertyLoaded:=false;
if (FTIObject is TComponent) then begin