[morebeauty]

Есть задача создать класс для подгрузки (из БД или ИНИ) настроек и дальнейшего их использования в программе. Причем для более удобного использования этого класса, вид извлечения и добавления этих настроек должен выглядеть вот так:

Код:

var
Opt:TMyClass; //экземпляр класса
Var1:integer;
begin
Opt := TMyClass.Create;
Opt['Category']['SubCategory']['SubSubCategory']['Option1'] := 'qwe';
{Строчка выше означает, что класс должен создать (если ранее не создано) категорию 'Category', 
в ней Подкатегорию 'SubCategory', в ней еще подкатегорию 'SubSubCategory' (то есть все в виде дерева), 
в ней опцию 'Option1' и присвоить этой опции значение 'qwe'}
Var1 := Opt['Category']['Option2'];
{Строчка выше означает, что переменной Var1 типа integer должно присвоиться значение опции 'Option2' 
из категории 'Category', если данные опция и категория созданы
}
end;

То есть при первом же рассмотрении встает вопрос, как сделать так, чтобы у дефолтной property функции для read и write имели разные типы данных?
Типа того:

Код:

TCategory = Class;
TMyClass = Class
private
function GetV(Name:string):TCategory;
procedure SetV(Name:string;Value:STRING);
public
property Cat[Name:string]:TCategory read GetV write SetV; default;
end;

Само собой компилятор в этом случае выдает ошибку о несовпадении типов.

[Pyro]

похожее делал так:

Код:

procedure InitIni;
begin
  inimap := TiniManager.Create('ini.ini')
  inimap.define('section', 'somevar', '100', TInt.Create(@intvar));
  inimap.define('section', 'somevar2', 'default', TStr.Create(@strvar));
  inimap.define('section', 'somevar3', 'yes', TBool.Create(@boolvar));
  inimap.define('main', 'form-x', '100', TProp.Create(Form1, 'left'));
  inimap.define('main', 'form-y', '100', TProp.Create(Form1, 'top'));  
end; 

inimap.write;
inimap.read;

хотя TProp.Create(...) можно заменить разными версиями метода .define

[morebeauty]

Что? Где в вашем сообщении ответ на мой вопрос?

[Pyro]

variant пробовал?

[morebeauty]

А разве в варианте можно хранить экземпляр класса? Даже если и можно, я не смогу обращаться с переменной типа вариант, как с экземпляром класса. Ну разве что делать так:
with opt['Category'] as TCategory
with ['SubCategory'] as TCategory
****
И так далее. А должно выглядеть так, как я написал в первом сообщении.
Цель - сделать программу легко перевариваемую программистами, чтобы один мог написать, другой подправить. Уже наделал кучу классов для красивого кодинга в дальнейшем. Споткнулся вот на этом.

[Pyro]

вот такие варианты есть

Код:

Var1 := Opt['Category','Option2'];
Var1 := Opt['Category']['Option2'].get

Var0 := Opt['Category','Sub'].get('Option1');
with Opt['Category','Sub'] do
begin
  Var1 := get('Option2')
  Var2 := get('Option3')
end

а предыдущий код который я выкладывал - для того что бы избавиться от дублирования при записи/чтении

[morebeauty]

Код:

Var1 := Opt['Category','Option2'];
Var1 := Opt['Category']['Option2'].get
 
Var0 := Opt['Category','Sub'].get('Option1');
with Opt['Category','Sub'] do
begin
  Var1 := get('Option2')
  Var2 := get('Option3')
end

Да, это все, что я смог осуществить. Ну, разве что get(string) я сделал в виде дефолтной property. Но количество подкатегорий при этом ограниченное. Не больше и не меньше чем я сделал (то есть если я указал, что их 3, то нужно использовать именно 3).
Это не то, что я хотел, но пока будет так. Во всяком случае, если мне удастся сделать то, что я задумал (переделать класс), то это никак не повлияет на уже написанный код с использованием данного класса. Так что вопрос остается открытым.

Пока что обращение к классу выглядит так:

Код:

var
Var1:string;
Var2:integer;
Opt:TMyClass;
Begin
Opt:=TMyClass.Create;
Opt['Category']['SubCategory']['Option1']:=5;
Opt['Category']['SubCategory']['Option2']:=6;
Opt['Category']['SubCategory']['Option3']:='qwe';

Var1:=Opt['Category']['SubCategory']['Option3'][1];
Var2:=Opt['Category']['SubCategory']['Option2'] - Opt['Category']['SubCategory']['Option1'];
end;

В результате Var1 = 'q'
Var2 = 1
То есть средствами класса определяются нужные типы данных (принимаются и возвращаются не variant, а именно string или integer или real, в зависимости от типа переменной, в которую считывается или из которой записывается).

Не получается лишь сделать путь к опции в виде правильного Х-уровневого дерева. То есть для сей конструкции есть класс Опции, в котором хранится экземпляр класса Категории, в нем экземпляр класса Подкатегории, а в нем уже екземпляр класса Настройки. Если захочу сделать больше подкатегорий, то придется делать дополнительные классы для них. Если завяжу класс категории сам на себя, то не смогу в нужный момент извлечь таким же способом опцию (точнее смогу, только способом .get('Option1'), а мне надо дефолтной property, но в дефолтной property уже будет стоять ссылка на класс категорий). Вот такие дела...

[morebeauty]

Еще можно сделать обращение вида:
Opt['Category/SubCategory/SubSubCategory/Option'], но это не красиво выглядит.

Еще можно было бы сделать так:
Opt['Category','SubCategory',........,'Option1']
То есть переменным числом параметров, но я не знаю как это сделать. Так же работает функция Write/Writeln (и еще некоторые функции) - принимает любое количество параметров, но я не могу понять, как это реализовано.

[stanilar]

Может небольшая редакция требований спасет отца русской демократии:

Код:

Opt['Category']['SubCategory']['Option1'].Value:=5;
...
Var1:=Opt['Category']['SubCategory']['Option3'][1].Value;

[morebeauty]

Может небольшая редакция требований спасет отца русской демократии:

А зачем? Это же и так ясно. Я уже даже подкорректировал некоторые компоненты, типа TEdit, TLabel, чтобы не писать имена свойств Text и Caption. Ведь чаще всего от Едита нам нужен именно текст, поэтому к тексту едита я теперь обращаюсь просто по имени компонента (string := Edit1, вместо string := Edit1.Text).

[Pyro]

Сообщение от morebeauty

string := Edit1, вместо string := Edit1.Text

круть, а типы тоже угадывает?

Код:

например intvar := Edit1

Opt['Category','SubCategory',........,'Option1']

с квадратными скобками не сделать, но можно с круглыми:

Код:

Opt(a: array of string)
...
Opt(['Category','SubCategory',........,'Option1'])

[morebeauty]

круть, а типы тоже угадывает?

По возможности конвертирует все в string, в противном случае выдает ошибку с грустным смайликом )

с квадратными скобками не сделать, но можно с круглыми:

Write устроена иначе. Хотелось бы использовать такой же метод, но я слишком..... эммм.... мало осведомлен, чтобы это сделать. А именно такой способ (как вы предложили) не удобен и не красив.

[Pyro]

в старших дельфях можно так попробовать:

Код:

type
   TMyClass = record // хз работает ли на классах
     class operator Implicit(a: Integer): TMyClass; //запись?
     class operator Implicit(a: TMyClass): Integer; //чтение?

http://docwiki.embarcadero.com/CodeE...s_%28Delphi%29

[NumLock]

сделай уже что б хоть как-то работало:

Код:

MyObj['Category\SubCategory\Option'] := '123';
v := MyObj['Category\SubCategory\Option'];

или:

Код:

MyObj.Category.SubCategory.Option := '123';
v := MyObj.Category.SubCategory.Option;

[morebeauty]

сделай уже что б хоть как-то работало:

Код:

MyObj['Category\SubCategory\Option'] := '123';
v := MyObj['Category\SubCategory\Option'];

Это просто, но некрасиво. И при переборе опций я не смогу сделать так:
with MyObj['Category\SubCategory']
А опций может быть много...

или:

Код:

MyObj.Category.SubCategory.Option := '123';
v := MyObj.Category.SubCategory.Option;

А это совсем не подходит. Ведь не зря же названия категорий - стринги. Category и SubCategory на самом деле будут выглядеть как
MyObj['Globals']....
MyObj['Locals']['Interface']['MainForm']['Top']...
MyObj['Locals']['Interface']['MainForm']['Left']...
ну и так далее
То есть класс должен быть универсален, а не заточен под конкретное приложение.