Заполнение свойств класса из XML

← →
Альф (2006-01-30 11:36) [0]

Доброе утро :) Есть ли у кого модуль заполнения published properties у класса из XML-файла ? при условии что имена тегов в XML соответсвуют именам свойств.

Теоретически знаю что нужно копать в сторону RTTI - но как практически реализовать пока не знаю :( или же подскажите где копать :)

← →
pasha_golub © (2006-01-30 12:40) [1]

Если только для паблишед, то можно через TStream. У меня например так:

... WriteLn(theFile, "<FORMSETTINGS "+ .... "SomeClass=""+ EncodeClass4XML + "" "+ ... function EncodeClass4XML: string; var SS: TStringStream; FClassStream: TMemoryStream; begin FClassStream := TMemoryStream.Create; try SS := TStringStream.Create(""); try FClassStream.WriteComponent(<SOMEOBJECT>); //Edit1 например ObjectBinaryToText(FClassStream,SS); Result := EncodeText4XML(SS.DataString); finally SS.Free; end; finally FClassStream.Free; end; end;
EncodeText4XML - процедура заменяющаяя non-printable и служебные символы ("<",">","\" etc.) на их "проэскапленные" аналоги.

У этого метода однако есть существенные недостатки. Он не сохранит значения тех свойтсв которые не отличны от их default представлений,
например:

TSomeClass = class
..
published
property Foo ..... default 0;
end;

Так вот, если Foo на момент сохранения равно нулю, то значение не сохранится. В принципе это не страшно, если объект будет создаваться и лишь потом заполняться свойствами из файла. Однако, будут проблемы если объект уже существует и мы пытаемся переписать его новыми значениями. Для этого его лучше пересоздать.

С другой стороны есть несомненный плюс. Ибо метод запишет и все объекты которыми он владеет, так, например если таким образом сохранять форму, то грубо говоря получим аналог .dfm со всеми компонентами лежащими на ней.

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

Заполнение свойств класса из XML Найти похожие ветки