Error in SetStrProp procedure from typinfo.pp unit
Original Reporter info from Mantis: Zawullon
-
Reporter name:
Original Reporter info from Mantis: Zawullon
- Reporter name:
Description:
Exception raise any time when I try use SetStrProp to set value of ShortString property.
Steps to reproduce:
type
TSomeType = class (TPersistent)
private
FName: ShortString;
procedure SetName(const AValue: ShortString);
published
property Name: ShortString read FName write SetName;
end;
and just try use SetStrProp procedure to set value of Name property.
Additional information:
It`s happened because follow line
if (PropInfo^.PropProcs and 3)=ptStatic then
must look like
if ((PropInfo^.PropProcs shr 2) and 3)=ptStatic then
Mantis conversion info:
- Mantis ID: 14040
- Version: 2.2.3
- Fixed in version: 2.4.0
- Fixed in revision: 13323 (#77feb9d4)