2013-01-16 14 views
7

W klasie Delphi mam pewne właściwości, które chciałbym ustawić, uzyskując dostęp do nich po nazwie. Teraz używam np. Settings.AllowSysop := True;Ustawianie wartości właściwości według nazwy

że chciałbym zrobić coś takiego Settings('AllowSysop').Value := True;

Powodem tego jest to, że przy ustalaniu, co moi użytkownicy mogą uzyskać dostęp do tego jest odczytywana z pliku licencji, gdzie linia odczytu z pliku (to jest jak INI ale szyfrowany) może wyglądać

AllowSysop = True 

wiem, że to jest jakiś RTTI look-a-jak kod, który ma być wykonany, ale nie mogę zupełnie zrozumieć.

Myślę, że byłoby mi łatwiej, gdyby to było możliwe.

Mam nadzieję, że wyjaśnienie sensu

+0

Wszystkie Twoje wartości są logiczna? – jachguate

Odpowiedz

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

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

end; 
+1

To było trochę prostsze niż się spodziewano - dzięki – OZ8HP

Powiązane problemy