2013-01-16 33 views
7

डेल्फी कक्षा में मेरे पास कुछ गुण हैं जिन्हें मैं उनके नाम से एक्सेस करके सेट करना चाहता हूं। अब मैं उदाहरण का उपयोग करता हूं Settings.AllowSysop := True;नाम से संपत्ति मूल्य सेट करना

मैं की तरह Settings('AllowSysop').Value := True;

इस का कारण यह है कि जब स्थापित करने के लिए क्या मेरे उपयोगकर्ताओं को यह उपयोग कर सकते हैं एक लाइसेंस फ़ाइल जहां लाइन फ़ाइल से पढ़ने से पढ़ा जाता है (यह एक तरह है कुछ करना चाहते हैं यही कारण है कि INI लेकिन एन्क्रिप्टेड) ​​लग सकता है

तरह
AllowSysop = True 

मैं जानता हूँ कि यह कुछ RTTI नज़र-ए-तरह कोड है कि किए जाने के लिए है, लेकिन मैं काफी यह समझ नहीं कर सकते हैं।

मुझे लगता है कि यह संभव है अगर यह मेरे लिए थोड़ा आसान बना देगा।

आशा है कि स्पष्टीकरण भावना

+0

अपने सभी मान बूलियन हैं बना रही है? – jachguate

उत्तर

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

यह अपेक्षा से थोड़ा अधिक सरल था - धन्यवाद – OZ8HP