9

Delphi クラスには、名前でアクセスして設定したいプロパティがいくつかあります。今私は例えばを使用しますSettings.AllowSysop := True;

私は次のようなことをしたいと思います Settings('AllowSysop').Value := True;

この理由は、ユーザーがアクセスできるものを設定するときに、ファイルから読み取られた行 (INI暗号化されているようですが) が次のように見えるライセンス ファイルから読み取られるためです。

AllowSysop = True

作成する必要があるのは RTTI に似たコードであることはわかっていますが、よくわかりません。

これができれば少し楽になると思います。

説明が理にかなっていることを願っています

4

1 に答える 1

18
implementation
uses TypInfo;
{$R *.dfm}

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

end;
于 2013-01-16T07:03:52.547 に答える