delphi - 按名称设置属性值

Question

在 Delphi 类中，我有一些属性，我想通过按名称访问它们来设置它们。现在我使用例如Settings.AllowSysop := True;

我想做类似的事情 Settings('AllowSysop').Value := True;

这样做的原因是，在设置我的用户可以访问的内容时，这是从许可证文件中读取的，其中从文件中读取的行（它就像一个INI但加密的）可能看起来像

AllowSysop = True

我知道必须制作一些类似于 RTTI 的代码，但我不太明白。

如果可能的话，我认为这对我来说会更容易一些。

希望解释是有道理的

Answer 1

implementation
uses TypInfo;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsPublishedProp (Button1, 'Visible') then
    begin
      SetPropValue (Button1, 'Visible',false);
    end;

end;