Added full member name to model/code out of sync exception message. #30

Embarcadero · Dec 7, 2024 · 4479dbc · 4479dbc
1 parent 7421417
commit 4479dbc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Source/BoldCoreConsts.pas b/Source/BoldCoreConsts.pas
@@ -409,7 +409,7 @@ interface
   sValidate_MemberNotAssigned = 'Unable to access member %s.%s: %0:s is not assigned!';
   sValidate_NoSuchMember = 'Class %s has no member %s. (Generated code might be out of sync with model)';
   sValidate_MemberIndexOutOfSynch = 'Member indexes in generated code is out of sync with model (%s.%s has %d in code and %d in model';
-  sValidate_InvalidMemberType = 'Invalid member type for %s.%s. Expected %s, was %s (Generated code might be out of sync with model)';
+  sValidate_InvalidMemberType = 'Invalid member type for %s.%s. Expected %s, was %s. Member is %s (Generated code might be out of sync with model)';
   sValidate_WrongMember = 'Class %s member at index %d is %s, expected %s. (Generated code might be out of sync with model)';
   sValidate_InternalError = 'Internal Error: Member %s.%s is not assigned';
   sFailedToDerive = 'Failed to derive %s: %s (ID:%s)';

diff --git a/Source/BoldSystem.pas b/Source/BoldSystem.pas
@@ -5106,7 +5106,7 @@ function TBoldObject.ValidateMember(const ObjectDelphiName, MemberDelphiName: St
     InternalRaise(EBoldInternal, sValidate_InternalError, [ObjectDelphiName, MemberDelphiName]);
 
   if not (Member is MemberClass) then
-    InternalRaise(EBold, sValidate_InvalidMemberType, [ObjectDelphiName, MemberDelphiName, MemberClass.ClassName, Member.ClassName]);
+    InternalRaise(EBold, sValidate_InvalidMemberType, [ObjectDelphiName, MemberDelphiName, MemberClass.ClassName, Member.ClassName, Member.DebugInfo]);
 
   MemberRTInfo := Member.BoldMemberRTInfo;