TJvPropertyStorage.StoreAnyProperty / .LoadAndyProperty

[dummzeuch]

The methods TJvPropertyStorage.StoreAnyProperty and .LoadAndyProperty both check whether a SetProc exists. Otherwise they won't try to store / load the property. I think this is wrong ro class and interface properties as these do not need a setter method to load the properties of that class / interface. Therefore I propose the following change:

procedure TJvPropertyStorage.LoadAnyProperty(PropInfo: PPropInfo);
begin
  try
    if (PropInfo <> nil) and ((PropInfo.SetProc <> nil) or (PropInfo.PropType^.Kind in [tkClass, tkInterface])) then
      ReadProperty(AppStoragePath, GetItemName(PropInfo.Name), TPersistent(FObject), PropInfo.Name);
  except
    { ignore any exception }
  end;
end;

procedure TJvPropertyStorage.StoreAnyProperty(PropInfo: PPropInfo);
begin
    if (PropInfo <> nil) and ((PropInfo.SetProc <> nil) or (PropInfo.PropType^.Kind in [tkClass, tkInterface])) then
    WriteProperty(AppStoragePath, GetItemName(PropInfo.Name), TPersistent(FObject), PropInfo.Name);
end;

I think I have seen the same check somewhere else in the JVCL already but I currently can't find it.