Приложение А
Описание программы «Расчет устойчивости откоса»
АЛ Подсистема сохранения состояния
Подсистема сохранения предназначена для поддержки сохранения и за-
грузки прикладных объектов на диск и с диска. Подсистема включает в себя
небольшое число объектов, которые являются отправными для построения
всей иерархии прикладных объектов программы. В состав подсистемы вхо-
дят объекты: TpersistMedia, TpersistObject, TPersistList,
TComplexPersistObject и несколько других. Подсис-
тема реализована в модуле
Объект TpersistMedia реализует основу для загрузки и сохранения эле-
ментарных типов данных. Все другие, более сложные, типы и объекты осу-
ществляют операции записи/чтения с помощью представленных в объекте
методов. В состав объекта входят методы для записи элементарных типов
данных - где XXX - имя элементарного типа данных и методы
для чтения - ReadXXX, где XXX - имя элементарного типа данных.
Объект TpersistObject является исходным для построения единичных
объектов, которые могут сохранять и загружать свое состояние на диск, а
также делать копию другого объекта такого же типа. Объект является абст-
рактным, т.е. нельзя создать экземпляры этого объекта в программе.
В состав объекта входят четыре абстрактных метода: Assign, Clear, Load,
Save. Все эти методы должны быть реализованы у объектов потомков.
Метод Assign копирует состояние объекта, передаваемого в качестве па-
раметра.
Метод Clear устанавливает объект в состояние «по умолчанию» или
«очищает» объект.
Метод Load выполняет загрузку ранее сохраненного состояния объекта с
помощью объекта типа TpersistMedia, который передается в качестве пара-
метра.
Метод Save выполняет сохранение состояния объекта с помощью объек-
та типа TpersistMedia, который передается в качестве параметра.
TpersistList является исходным для построения регулярных объ-
ектов, которые могут сохранять и загружать свое состояние на диск, а также
делать копию другого объекта такого же типа. Объект является абстрактным,
т.е. нельзя создать экземпляры этого объекта в программе. Объект включает
четыре метода Assign, Clear, Load, Save назначение которых аналогично со-
ответствующим методам объект TpersistObject и помимо этого два дополни-
тельных абстрактных метода и
Метод Loadltem предназначен для загрузки единичного объекта, входя-
щего в состав TpersistList.
Метод Saveltem предназначен для сохранения единичного объекта, вхо-
дящего в состав TpersistList.
116