Is it possible to use RTTI or some other neat trick to do the following..

I have a configuration object thats wrapping properties around an ini file, 
I have say 10+ boolean properties, and IMHO having 10 get/set routines that 
do exactly the same thing with a different label just sucks, and isn't that 
great for ease of maintainability (esp. if the configurable items goes way 
further.

Is it possible to do something like:

type
  TMyObject = class
  private
    function GetBool: Boolean;
    procedure SetBool(Value: Boolean);
  public
    property Bool1: Boolean read GetBool write SetBool;
    property Bool2: Boolean read GetBool write SetBool;
  end;

....

procedure TMyObject.SetBool(Value: Boolean);
var
  Key: String;
begin
  Key := <insert code to find what property I'm setting>;
  IniFile.WriteBool('Options', Key, Value);
end;

function TMyObject.GetBool: Boolean;
var
  Key: String;
begin
  Key := <insert code to find what property I'm getting>;
  Result := IniFile.ReadBool('Options', Key, False);
end;

Is this possible?

Failing that, is this possible:

  function GetBool(Key: String): Boolean;
  procedure SetBool(Key: String; Value: Boolean);

  property Bool1: Boolean read GetBool('bool1key') write 
SetBool('bool1key');

???

Mark

-- 
There are exceptions, I'm sure, but the Windows 2000 on-line community
seems to have, in general, the moral and spiritual qualities of your
average porn site. (c) Bryan Pfaffenberger, Linux Journal, Jan 2001.
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"

Reply via email to