paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 20:47:17 +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 var
AComponent: TComponent; AComponent: TComponent;
begin begin
if (NewPropertyName<>'') // Note: checking for IsValidIdent is not needed, because
and ((length(NewPropertyName)>254) or (not IsValidIdent(NewPropertyName))) // an identifier is is only needed for streaming. So every string as Name is
then // allowed.
raise Exception('TCustomPropertyLink.SetObjectAndProperty invalid identifier "'+NewPropertyName+'"');
if (NewPersistent<>TIObject) or (NewPropertyName<>TIPropertyName) then begin if (NewPersistent<>TIObject) or (NewPropertyName<>TIPropertyName) then begin
FPropertyLoaded:=false; FPropertyLoaded:=false;
if (FTIObject is TComponent) then begin if (FTIObject is TComponent) then begin