структура класса в XML

[Helpix]

Добрый день, подскажите пожалуйста каким образорм можно представить структуру текущего класса в XML файлике? Реально ли это? К сожалению поиск по форуму на мысли не натолкнул...

[Karabash]

Что такое в вашей интерпретации:
текущий класс и структура класса?
В Object Pascal (и как следствие, в Delphi) таких определений нет, отсюда и вопросы.

[Helpix]

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

Что такое в вашей интерпретации:
текущий класс и структура класса?
В Object Pascal (и как следствие, в Delphi) таких определений нет, отсюда и вопросы.

Допустим:
Есть некий класс:

Tclass = class
a:integer;
b:integer;
end;

и мне необходимо "просканировать его на свойства" и сохранить в XML данные, которые соответствуют свойствам данного класса....

[ych_del]

RTFM начиная с GetPropList, и по ссылкам в файле справки (:

Пример:

procedure TForm1.FormCreate(Sender: TObject);
var P: PPropList;
    X: Integer;
    S: string;
begin
   New(P);
   X := GetPropList(lv, P); // получим все имена свойств объекта lv
   for X := 0 to X-1 do
      with lv.Items.Add do begin
         Caption := P[X].Name;
         SubItems.Add(GetPropValue(lv, P[X].Name));
      end;
   Dispose(P);
end;

Данный код получает все имена свойств объекта lv (TListView), а затем запихнет их в этот же листвью (попутно получив и значение для каждого свойства).

Ну, а уж как это все переточить на твою задачу (см. xml) - думаю, сам справишься.

[Helpix]

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

RTFM начиная с GetPropList, и по ссылкам в файле справки

Пример:

procedure TForm1.FormCreate(Sender: TObject);
var P: PPropList;
    X: Integer;
    S: string;
begin
   New(P);
   X := GetPropList(lv, P); // получим все имена свойств объекта lv
   for X := 0 to X-1 do
      with lv.Items.Add do begin
         Caption := P[X].Name;
         SubItems.Add(GetPropValue(lv, P[X].Name));
      end;
   Dispose(P);
end;

Данный код получает все имена свойств объекта lv (TListView), а затем запихнет их в этот же листвью (попутно получив и значение для каждого свойства).

Огромнейшее тебе спасибо!!! Это оно...

[Helpix]

Подскажите пожалуйста, реально ли сделать?
Имеется класс:

Name=class(TObject)
a: integer;
b: string;
end;

Каким образом и можно ли выгнать структуру класса в xml файл, что бы получить такой результат:

<Name>
<a>
<type>integer</type>
<value>12</value>
</a>
<b>
<type>string</type>
<value>ABCD</value>
</b>
</Name>

[Человек_Борща]

Использовать то, о чем в 4-ом посте написано + IXMLDocument или NativeXML.

[Utkin]

Helpix, ищите сериализация. И конкретно сериализация в дельфи

[Helpix]

Посоветуйте пожалуйста чайнику какую нибудь литературу, в которой можно было бы разобраться с сериализацией, перелопатил все поиски - нет ни одного примера толкового...
1,5 недели ушло коту под хвост...

[OCTAGRAM]

Примерно так:

{$TYPEINFO ON}
{$METHODINFO ON}
type
  TMyClass = class(TObject)
    TestField: string;
    function GetTestProperty: string;
    property TestProperty: string read GetTestProperty;
  end;
{$TYPEINFO OFF}
{$METHODINFO OFF}

Очень важный вопрос: какая версия Delphi?

Если 7ка или около, там RTTI есть, но крайне неочевидно. Некто Hallvard Vassbotn подробно интересовался этим вопросом и раскопал ответы на все вопросы. Получилось увлекательное чтиво, которое можно в переводе почитать в блоге GunSmoker: http://www.transl-gunsmoker.ru/search/label/RTTI

Вкратце, сведения о published свойствах и названиях перечислений лежат на поверхности — тот самый TypInfo. Сведения о published полях оказываются в модуле Classes, и используются для загрузки форм из dfm. Наконец, сведения о published методах были почерпнуты из модуля ObjAuto. Всё в разных местах. По мотивах своих исследований автор написал библиотеку HVRTTIUtils

Если версия Delphi >= 2010, там есть встроенный модуль Rtti.pas, в котором всё доступно в одном месте.